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REM 
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Willkommen bei der Programmierung mit Speed 
Walker! Dieses Buch wurde fur all diejenigen ge- 
schrieben, die schon etwas von BASIC verstehen, 
und es anwenden wollen, urn ein paar interes- 
sante Programme herzustellen. Wir nehmen an, 
daft Sie die folgenden BASIC-Kommandos ken- 
nen: 



END 



Machen Sie sich keine Gedanken, wenn Sie kein 
Experte in der Benutzung mancher Programm- 
befehle sind — es wird nicht lange dauern, und 
Sie werden meisterhaft damit umgehen konnen. 
Ein Programmierer sein heiftt ein Detektiv sein — 
Sie mussen standig neue Geheimnisse in Pro- 
grammen aufdecken. Programmierer verbringen 
die Halfte ihres Lebens mit der Suche nach mog- 
lichen Fehlerquellen in ihren Programmen. Um 
Ihnen nun das Lesen, Verandern und Testen Ihrer 
Programme leichter zu machen, benutzen wir in 
diesem Buch die strukturierte Programmierung. 
Das bedeutet, daft wir zunachst die Hauptteile 
des Programms planen und dann erst in die Her- 
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stellung der Einzelteile einsteigen. Wir bermtzen 
viele REM-Anweisungen, um die Bedeutung von 
Variablen, die wirverwenden, und den Inhalt von 
einzelnen Programmteilen genau zu dokumen- 
tieren. Wir rucken auch einzelne Programmbau- 
steine ein, urn sie von anderen abzuheben bezie- 
hungsweise ihre Abhangigkeit von anderen Be- 
fehlen aufzuzeigen. 

Wenn wir uns auf dieses Spiel einlassen, werden 
wir mysteriose Techniken kennenlernen: die Vor- 
aussage der Zukunft, die Verschliisselung und 
Dechiffrierung von geheimen Nachrichten, die 
Bewegung von Objekten kreuz und quer uber 
den ganzen Schirm. In jedem Kapitel bauen wir 
neue Konzepte auf, erweitert sich unser Befehls- 
vorrat, und die Kombination schon bekannter 
und neuer Techniken fiihrt dann zu einem weite- 
ren Spiel Jeder neue Gedanke wird eingehend 
behandelt. Dariiber hinaus gibt es dazu Beispie- 
le, die Sie in Ihren Computer eingeben und aus- 
probieren konnen. Am Ende des letzten Kapitels 
haben wir dann ein weitaus komplizierteres Pro- 
gramm konstruiert als das, mit dem wir im er- 
sten Kapitel begonnen haben. Aber im Laufe der 
Zeit ist das auch kein Problem, da wir uns Zug 
um Zug mit alien Bausteinen dieses Programms 
anfreunden werden. 

Am Ende eines jeden Kapitels bieten wir Ihnen 
noch verschiedene Variationsmoglichkeiten an, 
die das gerade aufgebaute Programm vielleicht 
noch interessanter machen. In gewissem Sinne 
werden namlich Programme nie fertig — Sie kon- 
nen immer noch die eine oder andere Erganzung 
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oder Verbesserung hinzufugen. Und das ist das 
Schone an der Programmierung: Sie konnen Ihre 
eigenen Ideen einbringen. Obwohl wir in alien 
Kapiteln »schlusselfertige« Programme darstel- 
len, die Sie eingeben und sofort durchfuhren 
konnen, ist das Ende dieser Programme wirklich 
noch offen. Wir wollen sogar, daft Sie sie veran- 
dern und verbessern, daft Sie neue Elemente ein- 
fiigen und somit Ihre eigenen Programme schrei- 
ben. Aber vor allem wollen wir, daft Sie Spaft an 
der Programmierung und an diesem Buch fin- 
den. 



1 

Wie steht's mit Ihrer 
Zukunft? 



Stellen Sie sich einmal vor, Sie sitzen in einem 
chinesischen Restaurant und offnen eins der chi- 
nesischen Gluckskekse. Haben Sie sich je ge- 
fragt, wie gerade diese spezielle Zukunftsvor- 
aussage in Ihr Platzchen kommt? Ob es wohl je- 
manden gibt, der wollte, daft Sie genau dieses 
Platzchen bekommen? Vermutlich nicht. Irgend 
jemand muft sich wohl hingesetzt und eine Men- 
ge solcher Vorhersagen niedergeschrieben ha- 
ben, ein anderer hat sie dann alle in die kleinen 
Kuchen gesteckt. In jedern Fall handelt es sich 
hier aber urn eine »Zufallsarbeit«. Mit anderen 
Worten: Sie hatten jede beliebige Voraussage, 
die geschrieben wurde, erFialten konnen. 
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Computer konnen eine ganze Menge, unter an- 
derem konnen sie auch die Zukunft vorhersa- 
gen, und das ohne grofte Zaubertricks. 
Sie wissen schon, daft irgend jemand sie pro- 
grammieren — ihnen genau sagen muft, welche 
Schritte sie durchfuhren sollen. Wir werden nun 
ein »Blick-in-die-Zukunft-Programm« schreiben. 
Wir machen das in der gleichen Schrittfolge, als 
ob wir Weissagungszettel fur Glucksplatzchen 
erstellen wiirden: 

1. Eine Menge Vorhersagen festlegen und spei- 
chern, 

2. per Zufall eine der Vorhersagen herausfischen, 

3. die Zukunft auf dem Bildschirm anzeigen 

In diesem Buch werden wir die Programme 
strukturieren, damit sie leicht zu lesen und zu 
verandern sind. Wir tun das, indem wir das Pro- 
gramm in ahnliche Schritte unterteilen wie die 
drei oben genannten. Diese Schritte werden UN- 
TERROUTINEN genannt. Der STEUERUNGSTEIL 
eines Programms zeigt dem Computer, wo er 
diese Unterroutinen zu finden hat. Der Steue- 
rungsteil liest sich, als ob er ein Inhaltsverzeich- 
nis des Programms ware. 
Wir benutzen auch eine groftere Anzahl von 
REMarks (Bemerkungszeilen), die uns mitteilen, 
was jeder Programmbaustein im einzelnen fur 
eine Aufgabe hat: welchen Inhalt die von uns be- 
nutzten Variablen haben und welche Schritte in- 
nerhalb einer Unterroutine durchgefuhrt wer- 
den. Und so sieht der Steuerungsteil fur unser 
Weissagungsprogramm aus: 
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1 REM WIE SIEHT IHRE ZUKUNFT 

AUS? 

20 REM F$(4): BEREICH FUR VIER VOR- 

HERSAGEN 
30 REM J : ZAHLER 

40 REM N : ZUFALLSZAHL 

50 REM 

1 00 GOSUB 1000:REM SPEICHERUNG 

DER VORHERSAGEN 

200 GOSUB 2000:REM AUSWAHL EI- 

NER VORHERSAGE 

300 GOSUB 3000:REM AUSGABE DER 

VORHERSAGE 
400 END 

Die erste REMarkzeile enthalt den Namen des 
Programms. Die nachsten drei Zeilen beschrei- 
ben alle Variablen, die in diesem Programm ge- 
braucht werden. Die Zeilen 100, 200 und 300 zei- 
gen uns und dem Computer, wo sich die Unter- 
routinen befinden. GOSUB 1000 weist den Com- 
puter an, zur Zeile 1000 zu springen und ab da al- 
le Befehle auszufuhren bis zum Kommando RE- 
TURN, das den Rucksprung zu der Programm- 
stelle bedeutet, die mit GOSUB verlassen wurde. 
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Die Vorhersagen in einem Bereich 
speichern 




Nun beginnen wir mit dem Schreiben der Unter- 
routinen. Die auf Zeile 1000 soil so viele Vorher- 
sagen, wie wir wollen, mittels DATA-Anweisun- 
gen speichern. Und so sieht der Beginn der Un- 
terroutine aus: 



1 000 REM SPEICHERUNG DER VOR- 
HERSAGEN 

1010 DATA "SIE WERDEN SEHR REICH 
SEIN" 

1 020 DATA "SIE WERDEN UBERAUS 
GLUCKLICH SEIN" 

1 030 DATA "SIE WERDEN EIN COMPUTER- 
PROGRAMMIERER" 

1 040 DATA "SIE WERDEN AUF EINE LANGE 
REISE GEHEN" 
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Das sind naturlich nur Beispiele. Sie sollten Ihre 
eigenen Wunschtraume eingeben. Achten Sie 
nur darauf, daft jede Zeile mit dem Wort DATA be- 
ginnt und die Weissagungstexte in Anfuhrungs- 
striche gesetzt werden miissen. DATA-Anwei- 
sungen konnen uberall im Programm vorkom- 
men. Wenn der Computer einen READ-Befehl fin- 
det, sucht er automatisch nach den zu lesenden 
Daten. Er beginnt die Suche am Programman- 
fang und sucht so lange, bis er welche gefunden 
hat. Bei dem nachsten READ-Befehl, den er er- 
halt, setzt er die Suche hinter den zuletzt gefun- 
denen Daten fort. Da wir in unserem Beispiel vier 
Datendefinitionen haben, benotigen wir auch 
vier READ-Befehle: 

1050 DIM F$(4) 
1 060 FOR J = 1 TO 4 
1 070 READ F$(J) 
1 080 NEXT J 
1 090 RETURN 

Die Zeile 1050 markiert fur den Computer, daft es 
sich bei F$ um mehr als elne Variable handelt — 
die Zahl in Klammern gibt die Anzahl der Daten- 
elemente oder -zellen an. Die Gruppe der vier 
Vorhersagen wird Bereich oder Tabelle genannt, 
das sind mehrere Dateneinheiten, fur die der 
gleiche Variablenname verwendet wird. 
Die Schleife in den Zeilen 1060 und 1080 befiehlt 
dem Computer, vier Dateneinheiten (DATA) zu 
lesen und in F$ zu speichern (READ in 1070): die 
erste Zeichenkette (Vorhersage) wird mit F$(1 ), 
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die zweite mit F$(2) und so weiter bezeichnet. 
Die Zeile 1090 bringt den Computer dazu, in den 
Steuerungsteil, den man auch als HAUPTPRO- 
GRAMM bezeichnet, zuruckzukehren und die 
Arbeit an der Stelle fortzusetzen, wo er aufge- 
hort hat. Er wird nun die Zeile 200 durchfuhren, 
die ihn anweist, in die Zeile 2000 zu verzweigen 
und eine der Weissagungen auszuwahlen. 



Eine Vorhe per Zufall 

auswanlen 




Nachdem wir nun vier Zukunftsvisionen als 
F$(1 ), F$(2), F$(3) und F£(4) gespeichert haben, 
mussen wir eine nach dem Zufallsprinzip aus- 
wahlen. Der TRS-80 ist mit einer eingebauten 
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Funktion ausgerustet, die jedesmal, wenn Sie sie 
benutzen, eine andere Zahl auswahlen kann. 
Wenn wir diese Funktion anweisen, immer eine 
der Zahlen 1, 2, 3 oder 4 zu nehmen, dann kon- 
nen wir diese Zahl zur Auswahl einer unserer 
vier F$ genannten Datenzellen benutzen. Da die- 
se Funktion, die ubrigens RANDOM-Funktion 
heiftt, so haufig in diesem Buch vorkommt, wol- 
len wir nun besser erst einmal etwas Zeit darauf 
verwenden, sie kennenzulernen und zu verste- 
hen, wie sie arbeitet. 

Bauen wir zunachst einmal ein kleines Testpro- 
gramm auf. Wenn Sie schon mit der Eingabe des 
vorausschauenden Programms begonnen ha- 
ben, dann sichern Sie bitte die Eingabe mit SAVE 
und geben das NEW-Kommando ein. Anschlie- 
ftend machen Sie bitte folgende Eingabe: 

10FORX= 1 TO 10 
20 PRINT RND(8) 
30 NEXT X 

Das ist schon das gesamte Programm. Fuhren 
Sie das Programm mit RUN mehrmals durch, 
und schauen Sie sich die ausgegebenen Zahlen 
genau an. Sie erhalten immer wieder eine Zahl 
zwischen 1 und 8. Nun andern Sie bitte Zeile 20: 

20 PRINT RND(25) 

Bei der anschlieftenden mehrmaligen Durchfuh- 
rung zeigt Ihnen der Computer immer wieder 
Zahlen von 1 bis 25. Die RND-Funktion besteht 
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aus dem Kommando RND und einer in Klam™ 
mern gefafiten GanzzahL 1st diese Ganzzahl 1 
oder hoher, gibt die RND-Funktion immer einen 
Wert zwischen 1 und der angegebenen Zahl aus. 
Wenn Sie eine Zufallszahl zwischen 1 und 50 ha- 
ben wollen, mussen Sie 50 eingeben. Soil die 
Ausgabe aus einer Zahl zwischen 1 und 75 be- 
stehen, funktioniert das mit dem Befehl 
RND(75). Diese Formel inbegriffen, besteht das 
Unterprogramm aus drei Zeilen: 

2000 REM EINE ZUFALLSZAHL GE- 

NERIEREN 

2010N = RND(4) 
2020 RETURN 

Wir erhalten nun eine Zufallszahl von 1 bis 4 und 
speichern sie als Variable N. Nun mussen wir nur 
noch das Orakel mit der Zahl N auf dem Bild- 
schirmanzeigen. 
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Die Ausgabe der Vorhersage 




Eigentlich sollten Sie keine Probleme mit dem 
Verstehen der Funktionsweise dieser Unterrou- 
tine haben: 



3000 REM DIE VORHERSAGE AUSGE- 

BEN 

301 CLS:PRINT 

3020 PRINT "UND HIER 1ST IHRE ZU- 

KUNFT:" 
3030 PRINT:PRINT 
3040 PRINT F$(N) 
3050 RETURN 

Das Kommando CLS loscht den gesamten Bild- 
schirm und positioniert den Cursor auf die erste 
Stelle der ersten Bildschirrnzeile, also links oben. 
Der folgende PRINT-Befehl ohne Zusatz laftt eine 

19 



Zeile leer. Also loscht Zeile 3010 alles, was sich 
auf dem Schirm befand, und setzt den Cursor auf 
die zweite Zeile, wo die Meldung »UND HIER 1ST 
IHRE ZUKUNFT:« angezeigt wird. Zeile 3030 laftt 
weitere zwei Zeilen frei, so daft die Prophezeiung 
N auf der Bildschirmzeile 5 sichtbar wird und die 
Ausgabe in Zeile 3040 erfolgt Wie lautet die Pro- 
phezeiung N? Wenn N den Wert 1 enthalt, wird 
der Computer F$(1 ), »SIE WERDEN SEHR REICH 
SEIN« anzeigen. Enthalt N den Wert 3, dann wird 
F$(3) gezeigt, »SIE WERDEN EIN COMPUTER- 
PROGRAMMIERER«. 



Das Programm zusammenfugen 




Alle Unterroutinen sind geschrieben, und das 
Programm ist bereit zur Durchfuhrung. Auch 
wenn Sie das ganze Programm durch Nach- 

20 



schauen an den verschiedenen Stellen in diesem 
Kapitel nachsehen konnen, halten wir es fur 
niitzlich, es hier noch einmal in seiner Gesamt- 
heit darzustellen: 

1 REM WIE SIEHT IHRE ZUKUNFT 

AUS? 

20 REM F$(4): BEREICH FUR VIER VOR- 

HERSAGEN 
30 REM J : ZAHLER 

40 REM N : ZUFALLSZAHL 

50 REM 

1 00 GOSUB 1000:REM SPEICHERUNG 

DER VORHERSAGEN 

200 GOSUB 2000:REM AUSWAHL EI- 

NER VORHERSAGE 

300 GOSUB 3000:REM AUSGABE DER 

VORHERSAGE 
400 END 
1 000 REM SPEICHERUNG DER VOR- 
HERSAGEN 

1 01 DATA "SIE WERDEN SEHR REICH 

SEIN" 
1 020 DATA "SIE WERDEN UBERAUS 

GLUCKLICH SEIN" 
1030 DATA "SIE WERDEN EIN COMPUTER- 

PROGRAMMIERER" 
1 040 DATA "SIE WERDEN AUF EINE LANGE 

REISE GEHEN" 
1050 DIM F$(4) 
1 060 FOR J = 1 TO 4 
1 070 READ F$(J) 
1 080 NEXT J 
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1 090 RETURN 

2000 REM EINE ZUFALLSZAHL GENE- 

RIEREN 

2010N = RND(4) 

2020 RETURN 

3000 REM DIE VORHERSAGE AUS- 

GEBEN 

301 CLS:PRINT 

3020 PRINT "UND HIER 1ST IHRE ZUKUNFT:" 

3030 PRINT:PRINT 

3040 PRINT F$(N) 

3050RETURN 
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Varlationen 



Er macht 
uberhaupt 
nichts! 



Vieileicht sind\ 
ihmdiePro- J 

phezeiungen 
^ausgegangen. 




Es gibt viele Dinge, die man nach der Erarbeitung 
eines Programms noch zu dessen Verschone- 
rung und Abrundung tun kann. Am Ende eines 
jeden Kapitels wollen wir Ihnen einige Variatio- 
nen, die Sie ausprobieren konnen, vorstellen und 
Tips fur deren Realisierung geben. Zunachst eini- 
ge Variationen fur unser Weissagungspro- 
gramm: 

1. Vier Voraussagen mcigen vielen von Ihnen 
nicht genug erscheinen. Sie konnen eigentlich so 
viele, wie Sie wollen, erfinclen und speichern. Na™ 
turlich mussen Sie dann einige Teile im Pro- 
gramm anpassen beziehungsweise hinzufugen: 

a) Erganzen Sie die DATA-Zeilen in der ersten Un- 
terroutine. 

b) Andern Sie die Zahl in den Zeilen 1050 und 
1060. 
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c) Andern Sie auch die 4 in der Random-Funk- 
tionszeile 2010. 

2. Geben Sie zwei oder mehr Vorhersagen aus: 
Nehmen Sie an, zwei Menschen wollen ihr 
Schicksal zur gleichen Zeit erfahren. Sie mussen 
also zwei Prophezeiungen gleichzeitig auswah- 
len — nennen wir sie N1 und N2: 

201 0N1 =RND(4) 
2015N2 = RND(4) 

In derletzten Unterroutine wiirden Sie in diesem 
Fall sowohl den Inhalt von F$(N1 ) als auch von 
F$(N2)aufdemBildschirmanzeigen.Siekonnen 
naturlich auch durch freizugige Anwendung des 
PRINT-Befehls den Bildschirm effektvoller gestal- 
ten (zum Beispiel durch einen Rahmen, der aus 
Sternchen besteht). Das sieht dann ungefahr so 
aus: 



Ihrpersonliches Horoskop. . . 



Hier sind der Phantasie keine Grenzen — aufter 

denen des Bildschirms — gesetzt 

Auf diese Weise konnen Sie nun jede beliebige 

Anzahl an Weissagungen speichern und ausge- 

ben. 
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2 

Sprechen Sie eine 
Geheimsprache? 



Haben Sie jemals einen Geheimcode benutzt, 
um einem Freund etwas mitzuteilen? Bei alien 
Codes mussen ganz bestimmte Regeln befolgt 
werden — wenn Sie diese kennen, konnen Sie je- 
den Code problemlos dechiffrieren. Computer 
konnen sehr leicht verschlusseln und entschlus- 
seln, wenn Sie die Regeln programmieren. In die- 
sem Kapitel werden wir ein Spielprogramm fur 
zwei Personen schreiben. Die erste gibt eine 
Nachricht ein. Der TRS-80 nimmt die Nachricht 
auf, setzt sie in einen Code um und zeigt sie ver- 
schlusseltdem zweiten Spieler. Dieser mufi dann 
versuchen, die Nachricht zu entziffern. Es gibt ei- 
ne grofie Anzahl unterschiedlicher Codierungen, 
die wir benutzen konnen. In diesem Fall werden 
wir den Umkehrungscode verwenden: der Com- 
puter erhalt die Nachricht und gibt sie ruckwarts 
wieder aus. Der zweite Spieler mufi also beim 
Entziffern von rechts nacki links lesen: 

?NESEL SAD EIS NENNOK 

Wenn Sie es konnen, dann sind Sie in der gluckli- 
chen Lage, alles in diesem Programm entschlus- 
seln zu konnen: 
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1 REM GEHEIMSPRACHE 

20 REM M$ : DIE NACHRICHT 

30 REM L$ : EIN BUCHSTABE IN DER 

NACHRICHT 
40 REM C$ : DER SCHLUSSEL 
50 REM A$ : DIE ANTWORT 
60 REM J : EIN ZAHLER 

70 REM 

1 00 GOSUB 1000:REM DIE NACH- 
RICHT EMPFANGEN 
200 GOSUB 2000:REM DIE NACH- 
RICHT VERSCHLUSSELN 

300 GOSUB 3000:REM QUIZ 

400 END 

Das Hauptprogramm (Steuerungsteil) zeigt uns 
funf benotigte Variablennamen und drei Abtei- 
lungen (SECTIONS) des Programms in Form von 
Unterroutinen. 
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Die Nachricht empfangen 




In der Unterroutine auf Zeile 1000 bitten wir dar- 
um, daft der zweite Spieler wahrend der Eingabe 
der Nachricht durch den ersten Spieler nicht zu- 
sieht. Die Nachricht wird als Variable M$ gespei- 
chert. 



1 000 REM DIE NACHRICHT EMP- 
FANGEN 

1 01 CLS:PRINT 

1 020 PRINT "SAGEN SIE IHREM MITSPIE- 
LER, ER SOLL" 

1 030 PRINT "WEGSEHEN, WENN SIE DIE 
NACHRICHT" 

1 035 PRINT "EINGEBEN" 

1 040 PRINT: PRINT 

1050 PRINT "GEBEN SIE NUN DIE NACH- 
RICHT EIN" 
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1 055 PRINT "DANN DROCKEN SIE DIE RE- 
TURN-TASTE" 
1 060 INPUT M$ 
1 070 RETURN 



Die Nachricht umkehren 



/ „lch habe 
I Kilobyte vor zwei 
I Jahren weg- . 
\ geschickt." ^* 




Zum Programm gehort eine Zeichenkette, M$ 
genannt, in ihr kann jedes Zeichen, jeder beliebi- 
ge Buchstabe oder jede willkurlich eingegebene 
Ziffer, jedes Sonderzeichen wie beispielsweise 
das $-Zeichen, Ausrufezeichen, Komma und so 
weiter enthalten sein. Wir mttssen nun die Rei- 
henfolge all dieser Zeichen umkehren und die ge- 
anderte Zeichenkette in einer neuen Variablen, 
die wir C$ nennen werden, abspeichern. Diese 
Prozedur lauft folgendermaften ab: 
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1. Nimm das letzte Zeichen aus M$ und spei- 
chere es als erstes Zeichen in C$. 

2. Nimm das vorvorletzte Zeichen aus M$ als 
zweites Zeichen in C$. 

3. Nimm das vorvorletzte Zeichen aus M$ als 
drittes Zeichen in C$. 

4. Fiihre diese Arbeit aus bis zum letzten Zei- 
chen von M$, das das erste Zeichen in C$ werden 
soil. 

Nehmen wir an, daft in M$ das Wort »HALLO« als 
Nachricht enthalten ist Der letzte Buchstabe in 
M$ ist also »0«, und dieser wird der erste Buch- 
stabe in C$. Dann wird das letzte »L« in M$ der 
zweite Buchstabe in C$. Wenn die Codierung er- 
folgreich abgeschlossen ist, enthalt C$ das Wort 

"OLLAH" 

Der TRS-80 besitzt eine integrierte Funktion, die 
jedes gewunschte Zeichen aus einer Zeichenket- 
te auswahlen kann. Wir probieren diese spezielle 
Funktion einmal aus, um ihre Arbeitsweise zu 
begreifen. Zuerst geben wir ein: 

M$ = "PFERD" 

und dann erfolgt die Anweisung: 

PRINTMID$(M$,4,1) 

(Vergessen Sie aber bitte nicht, die RETURN»Ta- 

ste zu drucken.) 

Der TRS-80 sollte mit dern Buchstaben »R« ant- 
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worten, da R der vierte Buchstabe in dem in M$ 
gespeicherten Wort ist. Nun versuchen Sie es mit 
dem folgenden Kommanclo: 

PRINT MID$(M$,3,2) 

Der TRS-80 wird Ihnen daraufhin zwei Buch- 
staben aus M$ zeigen, beginnend mit dem drit- 
ten Buchstaben des Wortes. Und zwar werden 
die Buchstaben ER angezeigt, wenn Sie die RE- 
TURN-Taste gedruckt haben. Bei der Benutzung 
der MID$-Funktion werden innerhalb der Klam- 
mern drei wesentliche Informationen festgelegt: 
Der Name der Zeichenkette. 
Die Zeichenposition, mit der begonnen werden 
soil. 

Wie viele Zeichen verarbeitet werden sollen. 
Anstelle der direkten Zahlenangaben konnen 
auch Variablen genommen werden. Geben Sie 
beispielsweise dem TRS-80 ein: 

1 = 5 

und anschlieftend 

PRINT MID$(M$J,1) 

Mit anderen Worten: Sie wollen 1 Zeichen aus 
M$ sehen, beginnend mit dem Zeichen mit der 
Nummer J oder 5. In unserem Beispiel ist das der 
Buchstabe »D«. Was passiert, wenn J den Wert 4 
enthalt? Dann entspricht MID$(M$,J,1) dem 
Buchstaben »R«. Durch die Veranderung des 
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Wertes von J konnen wir also alle Zeichen in M$ 

betrachten. 

Aber woher kennen wir die Anzahl der Zeichen in 

M$? 

Dies teilt uns eine andere TRS-80-Funktion mit. 
Versuchen Sie es einmal: 

PRINT LEN(M$) 

LEN steht fur die Lange irgendeiner Zeichenket- 
te, deren Namen man innerhalb der Klammern 
angibt. Verandern wir einmal M$ wie folgt: 

M$ = "HALLO, SIE DA!" 
PRINT LEN(M$) 



Wenn Sie diese Befehle eingeben, sehen Sie nach 
dem zweiten Driicken der RETURN-Taste, daft die 
Lange von M$ dem Wert 13 entspricht. Leerstel- 
len und Satzzeichen zahlen naturlich mit, da sie 
auch Bestandteil der Zeiclnenkette sind. 
Bevor wir beginnen, unsere Unterroutine zu 
schreiben, probieren wir diese beiden neuen 
Funktionen in einem kurzen Testprogramm aus, 
so wie wir es auch in Kapitel 1 mit der RANDOM- 
Funktion getan haben. Die beste Art und Weise, 
eine neue Computerlogik zu begreifen, ist, sie im 
einfachsten Programm, das man sich vorstellen 
kann, anzuwenden. 

Wenn Sie schon einen Teil unseres Programms 
eingegeben haben, sicherm Sie es bitte und ge- 
ben die folgenden Testanweisungen ein: 
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1 M$ = "HILFE" 

20 FOR J = 1 TO 5 

30 PRINT MID$(M$J,1 ) 

40 NEXT J 

Fuhren Sie dieses Programm mit RUN durch — 
die Ausgabe sollte aus den funf Buchstaben des 
Wortes HILFE bestehen, die einzeln pro Bild- 
schirmzeile angezeigt werden. Bei der ersten 
Schleifendurchfuhrung hatte J den Inhalt 1, also 
wurde der erste Buchstabe ausgegeben. Beim 
zweiten Mai wurde der zweite Buchstabe ge- 
zeigt und so weiter. Nun andern Sie bitte: 

10 FOR J = 5 TO 1 STEP— 1 

Fuhren Sie das Programm erneut durch. Diesmal 
werden die Buchstaben in umgekehrter Reihen- 
folge angezeigt. Bei der ersten Schleife tragt J den 
Wert 5, also wird der funfte Buchstabe sichtbar. 
Da J bei jeder Schleife um 1 vermindert wird, ent- 
spricht die Variable beim zweiten Mai dem Wert 
4, und der vierte Buchstabe wird ausgegeben. 
Nun modifizieren wir das Testprogramm noch 
einmal: 

1 FOR J = LEN(M$) TO 1 STEP -1 

Das Programm sollte nun vollig gleich ablaufen. 
Der Computer hat nur den Wert 5 durch LEN(M$) 
ersetzt, da insgesamt funf Zeichen in M$ enthal- 
ten sind. Weil das Gerat dazu in der Lage 1st, mus- 
sen wir also die Lange einer als Variable M$ ge- 
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speicherten Zeichenkette nicht kennen. Die Lan- 
ge kann sogar bei jeder Durchfuhrung ohne wei- 
teres verandert werden. Nun sind wir bereit, die 
Unterroutine zu schreiben: 

2000 REM DIE NACHRICHT UM- 

KEHREN 

201 FOR J = LEN(M$) TO 1 STEP — 1 
2020 L$ = MID$(M$,J,1) 
2030 C$ = C$ + L$ 
2040 NEXT J 
2050 RETURN 

Die Routine hat nur wenige Schritte. Die FOR/ 
NEXT-Schleife weist den Computer an, begin- 
nend mit dem letzten Zeichen abwarts zu zah- 
len, bis das erste Zeichen von M$ erreicht ist. Ent~ 
halt M$ das Wort »KATZE«, wird die Schleife funf- 
mal durchgefuhrt. Beim ersten Mai entspricht J 
der Zahl 5, beim zweiten Mai der Zahl 4, beim 
dritten Mai der Zahl 3, beim vierten Mai der Zahl 
2 und beim funften Mai der Zahl 1. 
L$ steht fur ein Zeichen au s M$. Bleiben wir beim 
obengenannten Wort, so enthalt L$ bei der er- 
sten Schleifendurchfuhrung den Buchstaben 
»E«, bei der zweiten »Z«, bei der dritten »T«, bei 
der vierten »A« und bei der funften »K«. 
Die Zeile 2030 nimmt jeweils den Wert aus L$ 
und fugt ihn an das Ende von C$ an. Beim Start 
befindet sich in C$ noch gar nichts, also ergibt 
hier L$ selbst die Variable C$. Am Schluft der er- 
sten Schleife enthalt C$ den Buchstaben »E«. Am 
Ende des zweiten Durchgangs enthalt L$ den 
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Buchstaben »Z«, der dem Inhalt von C$ (»E«) zu- 
geordnet wird. Danach beinhaltet C$ die Zei- 
chenkette »EZ«. Beim dritten Durchgang wird 
aus L$ das »T« beigefiigt, C$ besteht danach aus 
»EZT«. Beim vierten Durchlauf erfolgt das gleiche 
mit dem Buchstaben »A«, jetzt entspricht C$ 
dem Wort »EZTA«. Zu guter Letzt kommt das »K« 
hinzu, die Variable C$ enthalt nun die umgedreh- 
te Nachricht: »EZTAK« 



Quiz mlt dem zwelten Spieler 




Nun haben wir die Origin alnachricht in M$ und 
die verschlusselte Nachricht in C$ gespeichert — 
der Rest ist einfach! Wir loschen den Bildschirm 
und bitten den zweiten Spieler, sich den Inhalt 
von C$, den wir auf dem Bildschirm ausgeben, 
anzusehen. Wenn er kann, soil er das richtige 
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Wort dann eingeben. Wir nennen die Antwort 
des Spielers A$. Wenn A$ dem Inhalt von M$ 
gleicht, dann hat der Spieler die Verschlusselung 
erraten. 

3000 REM QUIZ 

3010CLS :PRINT 

3020 PRINT "BITTEN SIE IHREN MITSPIE- 

LER," 
3030 PRINT "DIESE NACHRICHT ZU ENT- 

ZIFFERN" 
3040 PRINT.-PRINT C$ 
3050PRINT:PRINT:PRINT "GEBEN SIE DIE 

ANTWORT EIN:" 
3060 PRINT:INPUT A$ 
3070 IF A$ = M$ THEIM PRINT "RICHTIG! 

DAS WAR'S!" 
3080 IF A$ <> M$ THEN PRINT "SCHA- 

DE, DIE NACHRICHT WAR: ";M$ 
3090 RETURN 
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Das ganze Programm 




10REM- 



-GEHEIMSPRACHE- 



20 REM M$ : DIE NACHRICHT 

30 REM L$ : EIN BUCHSTABE IN DER 

NACHRICHT 
40 REM C$ : DER SCHLUSSEL 
50 REM A$ : DIE ANTWORT 
60 REM J : EIN ZAHLER 

70 REM 

1 00 GOSUB 1000:REM DIE NACH- 
RICHT EMFPANGEN 

200 GOSUB 2000:REM DIE 

NACHRICHT VERSCHLUSSELN 

300 GOSUB 3000:REM QUIZ 

400 END 

1000 REM DIE NACHRICHT EMP- 

FANGEN 

1010CLS :PRINT 

1 020 PRINT "SAGEN SIE IHREM MITSPIE- 
LER, ER SOLL" 
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1 030 PRINT "WEGSEHEN, WENN SIE DIE 
NACHRICHT" 

1 035 PRINT "EINGEBEN" 

1 040 PRINTrPRINT 

1050 PRINT "GEBEN SIE NUN DIE NACH- 
RICHT EIN" 

1 055 PRINT "DANN DROCKEN SIE DIE RE- 
TURN-TASTE" 

1 060 INPUT M$ 

1 070 RETURN 

2000 REM DIE NACHRICHT UM- 

KEHREN 

201 FOR J = LEN(M$) TO 1 STEP —1 

2020 L$ = MID$(M$,J,1) 

2030 C$ = C$ + L$ 

2040 NEXT J 

2050 RETURN 
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3000 REM QUIZ 

3010CLS :PRINT 

3020 PRINT "BITTEN SIE IHREN MITSPIE- 

LER," 
3030 PRINT "DIESE NACHRICHT ZU ENT- 

ZIFFERN" 
3040 PRINT.-PRINT C$ 
3050 PRINT:PRINT:PRINT "GEBEN SIE DIE 

ANTWORT EIN:" 
3060PRINT:INPUTA$ 
3070 IF A$ = M$ THEN PRINT "RICHTIG! 

DAS WAR'S!" 
3080 IF A$ <> M$ THEN PRINT "SCHA- 

DE, DIE NACHRICHT WAR: ";M$ 
3090 RETURN 



Variationen 
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Dieses Spiel laBt sich sehr gut abwandeln. Zum 

einen konnten wir die Codierung der Nachricht 

verandern. Zum anderen konnten wir eine Zu- 

sammenstellung schon formulierter Nachrich- 

ten speichern, aus denen der Computer eine aus- 

wahlt Das sind zwei Dinge, die wir im nachsten 

Kapitel besprechen wollen. Es gibt aber auch ei- 

nige kleinere Anderungen, die Sie selbstandig 

durchfuhren konnen. Beispielsweise sind Sie in 

der Lage, die Ansprache durch den Computer 

personlicher zu gestalten, indem Sie sich mit 

dem Vornamen anreden lassen. Wir wollen uns 

hier jedoch mit einer anderen Variation beschaf- 

tigen. Unser Spielkonzept gibt dem zweiten Mit- 

spieler nur eine einzige Chance, die Meldung zu 

dechiffrieren. Meinen Sie nicht auch, es ware 

besser, ihm mehr als einen Versuch zuzubilli- 

gen? Wenn ja, zeigen wir Ihnen, wie's gemacht 

wird. Der Beginn der QUrz-Unterroutine (Zeilen 

3000 bis 3050) bleibt bestehen: Wir geben C$ auf 

dem Bildschirm aus und fragen den Mitspieler 

nach der richtigen Antwort. Der Rest dieser Un- 

terroutine wird jedoch dann in der Ablauflogik 

verandert. Anstatt mit einer Eingabe zufrieden 

zu sein, bauen wir eine Schleife auf, die dreimal 

durchgefuhrt wird und jedesmal eine Aussage 

zulaftt. Bei der Durchfuhxung mussen wir pru- 

fen, ob die Antwort A$ der Variablen M$ ent- 

spricht. Falls das zutrifft, das heifit, der Spieler 

hat die Nufi geknackt, muft der Durchlauf been- 

det werden. 
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3060 FOR J = 1 TO 3 

3070 PRINT "VERSUCH NR: ";J 

3080 INPUT A$ 

3090 IF A$ = M$ THEN PRINT "RICH- 

TIG!":GOTO 3130 
31 00 IF A$ <> M$ THEN PRINT 

"SCHADE! "; 
31 10 NEXT J 

31 20 PRINT "DIE NACHRICHT WAR: ";M$ 
31 30 RETURN 

Achten Sie auf das Semikolon (;) in Zeile 3100. 
Am Ende einer PRINT-Anweisung bewirkt dieses 
Zeichen, daft der nachste Text in der gleichen Zei- 
le auf dem Bildschirm erscheint. Wenn der Spie- 
ler also bei alien Versuchen scheitert, erscheint 
zweimal die Nachricht: 

SCHADE! VERSUCH NR: J (wobei statt J jeweils die 
aktuelle Zahl erscheint) 
Und beim dritten Mai der Text: 

SCHADE! DIE NACHRICHT WAR: M$ 
(hier folgt nun der Text aus M$) 
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3 

Die Kunst der 

Nachrichten- 

verschlfisselung 



Das im letzten Kapitel erarbeitete Spiel funktio- 
niert nur, wenn ein Spieler den Computer mit ei- 
ner Nachricht futtert. Jedesmal, wenn das Spiel 
beginnt, muft also eine neue Nachricht eingege- 
ben werden. Das hemmt natiirlich den Spielver- 
lauf und kann auf die Teilnehmer ermudend wir- 
ken. Ein weiteres Argernis ware, daft der zweite 
Spieler einem uber die Schulter gucken und die 
Nachricht vor der Verschlusselung sehen konn- 
te, was ihm naturlich nachher die Entzifferung 
erleichtern wurde. 

Eine bessere Idee ist wohl, eine groftere Anzahl 
von Texten vorab im Programm zu speichern 
und den Computer einen dieser Texte per Zufall 
auswahlen zu lassen. Kommt Ihnen diese Idee 
nicht bekannt vor? 

Sollte sie eigentlich. In Kapitel 1 haben wir ge- 
lernt, wie man Texte, Nachrichten oder Zeichen- 
ketten speichert und sie spater nach Zufall ein- 
zeln ausgibt, und in Kapitel 2, wie man diese Tex- 
te verschltisselt 
Jetzt werden wir nun zwel Dinge tun: wir verbin- 
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den die ersten beiden Programme zu einem neu- 
en Programm, das eine Meldung im Random- 
Verfahren auswahlt und dann chiffriert. An- 
schlieftend vertiefen wir das Thema der Ver- 
schlusselung durch Erfindung eines weiteren Co- 
des oder die Benutzung zweier Codes im glei- 
chen Programm noch etwas. 
Die Steuerung, das Hauptprogramm fur unser 
neues Programm sieht jetzt so aus: 

1 REM VERSCHLUSSELTE NACH- 

RICHTEN 

20' REM M$(4):BEREICH FUR VIER NACH- 

RICHTEN 
30 REM J rZAHLER 
40 REM N :ZUFALLSZAHL 
50 REM L$ :EIN BUCHSTABE IN DER 

NACHRICHT 
60 REM C$ :DIE VERSCHLUSSELTE 

NACHRICHT 
70 REM M$ :DIE ORIGINALNACHRICHT 

80 REM 

95 CLEAR 200 

100 GOSUB 1000:REiM DIE NACH- 

RICHTEN SPEICHERN 

200 GOSUB 2000:RE/M -—EINE ZUFAL- 

LIG AUFGREIFEM 

300 GOSUB 3000:REAA SIE VER- 

SCHLUSSELN 

400 GOSUB 4000:RE/M QUIZ 

500 END 
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In Zeile 95 finden Sie ein spezielles TRS-80~Kom- 
mando, das Sie wegen der Oberlange einiger ver- 
schlusselter Nachrichten verwenden mussen. Je- 
desmal, wenn Sie auf einem TRS-80 ein Pro- 
gramm starten, werden diesem 50 Speicherstel- 
len fur Text zugeordnet. Wenn mehr Zeichen ge- 
speichert werden sollen, erscheint eine entspre- 
chende Meldung (OUT OF STRING SPACE). Um 
das zu vermeiden, wird der CLEAR-Befehl mit An- 
gabe der langsten moglichen Zeichenkette ange- 
wendet. In unserem Fall werden 200 Zeichen fest 
zugeordnet — obwohl wir vermutlich nicht die 
ganze Anzahl brauchen. Wenn es allerdings 
mehr werden, mussen Sie die Zahl im CLEAR-Be- 
fehl entsprechend erhohen. 
Eigentlich haben Sie sich schon mit jeder dieser 
Unterroutinen ein wenig vertraut gemacht. Die 
ersten beiden stammen aus dem Programm in 
Kapitel 1, und die letzten beiden lernten wir in Ka~ 
pitel 2 kennen. Es miissen nur ganz geringfugige 
Anderungen vorgenommen werden. 
Betrachten wir die Unterroutine 1000 in Kapitel 1, 
die wir »Speicherung der Vorhersagen« genannt 
haben: Hier speichern wir nun Nachrichten statt 
Weissagungen, also nennen wir den Bereich 
oder die Tabelle M$(4) statt F$(4). Fuhren Sie bit- 
te diese Anderung durch 7 und schreiben Sie an- 
stelle der Vorhersagen die von Ihnen gewunsch- 
ten Nachrichten in die DATA-Zeilen. Der Rest die- 
ser Unterroutine bleibt unverandert. 
Keine Anderungen sind in der zweiten Unterrou- 
tine notwendig. Auch hier greifen wir eine Zu- 
fallszahlvon 1 bis 4 auf. 
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Die dritte Unterroutine in unserem neuen Pro- 
gramm, »SIE VERSCHLUSSELN«, das heiftt, eine 
der Nachrichten zu chiffrieren, ist die gleiche, die 
wir in Kapitel 2 mit »DIE NACHRICHT UMKEH- 
REN« bezeichnet haben. Dort war es die zweite 
Unterroutine, und hier ist es die dritte. Wir mus- 
sen also die Zeilennummern aus den 2000ern in 
die 3000er verlegen. Daruber hinaus batten wir 
in Kapitel 2 nur eine Nachricht, deshalb nannten 
wir sie nur M$. Jetzt aber kann unsere Nachricht 
jede der in derTabelle M$(4) gespeicherten Mel- 
dungen sein. Da wir gerade eine Zufallszahl N ge- 
zogen haben, ist die Nachricht, die verschlusselt 
werden soil, naturlich in der Variablen M$(N) zu 
finden. Eine winzige Anderung sorgt fur die An- 
passung dieser Unterroutine. Fugen Sie bitte am 
Beginn der Routine die folgende Zeile ein: 

3005M$ = M$(N) 

Diese Anweisung bedeutet, daft die Nachricht, 
die aufgegriffen wurde, im weiteren Verlauf des 
Programms nun M$ genannt wird. So kann der 
Rest der Routine unveramdert bleiben. 
Die letzte Unterroutine, QUIZ, ist ebenfalls iden- 
tisch mit der letzten Unterroutine in Kapitel 2. 
Vergessen Sie aber nicht, die Zeilennumerierung 
von 3000 auf 4000 zu erhohen, da wir ja in unse- 
rem neuen Programm vier Unterroutinen haben. 
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Erne andere Codlerung 




Mit einer Handvoll Anderungen haben wir zwei 
einfachere Programme zu einem komplizierte- 
ren zusammengefugt. Das neue Programm wird 
eine Nachricht per Zufallsgenerator auswahlen, 
sie verschlusseln und einen Mitspieler bitten, 
den Originaltext wiederherzustellen. 
Wir konnen aber noch einiges mehr tun. Mo- 
mentan benutzt unser Programm immer diesel- 
be Codierung. Wenn jemand mehrmals mit die- 
sem Programm gespielt hat, ist er hochst- 
wahrscheinlich in der Lage, den Code zu knak- 
ken, und der Spaft an der Sache ist vorbei. Also 
schreiben wir eine Unterroutine, die die Umset- 
zung in verschiedener Weise ermoglichen soil. 
Dann konnen wir beide Codes im Programm be- 
nutzen, wobei der Computer auch hier Zufall 
spielt und den Code auswahlt. 
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Es gibt vermutlich Tausende verschiedener Co- 
dierungen, auf jeden Fall mehr, als man sich vor- 
stellen kann. Unser erster Code kehrte einfach 
die Nachricht urn. Ein anderer, oft benutzter 
Schliissel besteht aus der Einfiigung von Buch- 
staben zwischen die Buchstaben der Meldun- 
gen. Zum Beispiel konnte der Code fur »HALLO« 
so aussehen: HXAXLXLXOX. Eine leichte Ande- 
rung der Unterroutine sorgt fur eine solche Chif- 
frierung: 

3000 REM SIE VERSCHLUSSELN— 

3005M$ = M$(N) 
3010FORJ = 1 TOLEN(M$) 
3020 L$ = MID$(M$J,1) 
3030 C$ = C$ + L$ + "X" 
3040 NEXT J 
3050 RETURN 

Zwei Anderungen mussen gemacht werden: In 
Zeile 3010 zahlen wir nun vorwarts anstatt ruck- 
warts, weil wir die Zeichenreihenfolge diesmal 
nicht umkehren wollen. In Zeile 3030 fiigen wir 
erst einen Buchstaben der eigentlichen Nach- 
richt und dann zusatzlich ein X bei jedem Schlei- 
fendurchlauf im Bereich C$ zusammen. 
Naturlich konnen Sie jeden Buchstaben bezie- 
hungsweise jedes Zeichen anstelle des X ver- 
wenden. Aber ist dieser Code nicht immer noch 
zu leicht zu entziffern? Was halten Sie von der 
Idee, wenn wir mit dem Zufallsgenerator (RND) 
einen beliebigen Buchsta ben fur X in Zeile 3030 
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auswahlten? Dann konnte HALLO nach der Co- 
dierung ungefahr so aussehen: HRAULBLIOW. 
Das ist dann wirklich schwer zu entziffern! 
Um das zu programmieren, miissen Sie zwei wei- 
tere BASIC-Funktionen kennenlernen. Der Code 
wird ASCII-Code genannt und von den meisten 
Computern benutzt. Die ASCII-Zahl fur den 
Buchstaben A ist 65, fur B 66, fur C 67 und so wei- 
ter bis Z, das die Codezahl 90 hat Das konnen Sie 
leicht selbst uberprufen. Geben Sie beispielswei- 
se 

PRINT ASC ("A") 

oder 
PRINT ASC ("T") 

oder zwischen den Anfuhrungsstrichen jeden 
gewiinschten Buchstaben ein. 
Die ASC-Funktion andert den entsprechenden 
Buchstaben in die ihm zugeordnete Codezahl 
um. Wir aber wollen genau das Gegenteil tun — 
wenn wir die RND( 1 )-Funktion verwenden, erhal- 
ten wir eine Zufallszahl Wir miissen diese Zahl 
in einen Buchstaben verwandeln. Die BASIC- 
Funktion CHR$ hilft uns dabei. Versuchen Sie es 
mit: 

PRINT CHR$(65) 

Der Computer wird nun den Buchstaben A wie- 
dergeben, da A der Buchstabe mit der Nummer 
65 im ASCII-Verzeichnis ist. Die CHR$-Funktion 
ist also das Gegenstuck zur ASC-Funktlon. 
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Nun werden wir unsere »SIE VERSCHLUSSELN«- 
Unterroutine dahingehend andern, daft wir bei 
jeder Schleifendurchfuhrung eine Random- 
Ganzzahl von 1 bis 26 (das Alphabet hat 26 
Buchstaben) erhalten. Diese Ganzzahl benutzen 
wir dann, urn mit Hilfe der CHR$-Funktion einen 
Buchstaben zu bestimmen. Auf diese Weise er- 
halten wir »Zufallsbuchstaben«, die wir dem Co- 
de anstelle eines X jedesmal einfugen konnen: 

3000 REM SIE VERSCHLUSSELN- 



3005M$ = M$(N) 
3010FORJ = 1 TOLEN(M$) 
3020 L$ = MID$(M$J,1) 
3030 R = RND(2<5) + 64 
3040 C$ = C$ + L$ + CHR$(R) 
3050 NEXT J 
3060 RETURN 
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Die Zeile 3030 weist den Computer an, die Zu- 
fallszahl urn 64 zu erhohen. Wir wollen ja eine 
Zahl zwischen 65 und 90, da dieser Zahlenbe- 
reich die Buchstaben von A bis Z im ASCII-Code 
darstellt Mit Irgendeiner Zahl zwischen 1 und 
64 sind wir nicht zufrieden. 
Aufterdem werden in Zeile 3040 drei Zeichenket- 
ten zusammengefugt, unci zwar jedesmal, wenn 
die Schleife durchgefuhrt wird: das, was schon 
codiert ist (C$), der nachste Buchstabe aus der 
Meldung (L$) und der zufallig ermittelte Buch- 
stabe (CHR$(R)). 



Der eine Code oder der andere? 




Nun kennen wir zwei Wege der Nachrichtenver- 
schlusselung, und wir konnen die eine oder an- 
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dere Form fur das Programm wahlen. Noch bes- 
ser ist es jedoch, wenn wir BEIDE im gleichen Pro- 
gramm benutzen konnen und dem Computer je- 
desmal die Wahl der Codierungsart uberlassen. 
Damit das funktioniert, mussen wir beide Unter- 
routinen in das Programm einbauen. Da sie nicht 
auf derselben Zeilennummer starten konnen, le- 
gen wir fest, daft die Umkehrungscode-Routine 
auf Zeile 3000 beginnen soil und die Einfu- 
gungscode-Routine auf 3500. Und so wird's ge- 
macht: 

3000 REM UMKEHRUNGSCODE 

und 

3500 REM EINFUGUNGSCODE 



Sie kennen die Details jeder Routine bereits und 
konnen Sie also mit Leben fallen. Das gesamte 
Programm werden wir iHnen spater in diesem 
Kapitel vorstellen. 

Doch zunachst muft der Computer angewiesen 
werden, zwischen den beiden Routinen auszu- 
wahlen. Dazu mussen wir den Steuerungsteil 
des Programms veranciern. Das Hauptpro- 
gramm nach den REMark-Anweisungen sieht 
dann folgendermaften ams: 

1 00 GOSUB 1000:REiM NACHRICH- 

TENSPEICHERUM G 
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200 GOSUB 2000:REM EINE ZUFALLIG 

AUFGREIFEN 
250 S = RND(2) 
300 ON S GOSUB 3000,3500:REM VER- 

SCHLUSSELUNG 

400 GOSUB 4000:REM QUIZ 

500 END 

Wie Sie sehen konnen, benutzen wir wieder ein- 
mal die Random-Funktion. Dieses Mai, urn ent- 
weder eine 1 oder eine 2 aufzugreifen und sie als 
»S« zu speichern. Wenn S den Wert 1 annimmt, 
soil das Programm die Unterroutine 3000 durch- 
fuhren, wenn S eine 2 beinhaltet, sollte die Unter- 
routine 3500 abgearbeitet werden. 

Die ON GOSUB-ANWEISUNG in Zeile 300 

bewirkt genau das. Sie bedeutet bei S gleich 1 die 
Verzweigung auf die erste angefuhrte Unterrou- 
tine und bei S gleich 2 die zur zweiten. Falls es 
sich urn drei verschiedene Codierungs-Unterrou- 
tinen handeln wurde und die letzte wurde bei 
Zeile 3800 beginnen, konnten wir fur S die Zu- 
fallszahlen 1, 2 und 3 bestimmen und die Zeile 
300 wie folgt andern: 

300 ON S GOSUB 3000,3500,3800 
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Das ganze Pro 




Der folgende Abschnitt zeigt die letzte Version 
unseres Programms. Es speichert ein paar Mel- 
dungen in einer Tabelle, greift eine von ihnen per 
Zufallsgenerator fur die Codierung heraus, co- 
diert sie unter Benutzung einer der zwei Metho- 
den und bittet den Mitspieler urn einen Dechif- 
frierungsversuch. 



1 REM VERSCHLUSSELTE NACH- 

RICHTEN 

20 REM M$(4) :BEREICH FOR VIER 

NACHRICHTEM 



30 REM J 
40 REM N 

RICHTEN 
50 REM S 

ROUTINE 



:Z/AHLER 
rZUFALLSZAHL NACH- 

:ZUFALLSZAHL UNTER- 
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60 REM R :ZUFALLSZAHL BUCH- 

STABE 
70 REM L$ :EIN BUCHSTABE IN DER 

NACHRICHT 
80 REM C$ .-DIE VERSCHLUSSELTE 

NACHRICHT 
85 REM M $ :DIE ORIGINALNACHRICHT 

90 REM 

95 CLEAR 200 

100GOSUB 1000:REM NACH- 

RICHTEN SPEICHERN— 

200 GOSUB 2000:REM EINE ZUFAL- 

LIG AUFGREIFEN 
250S = RND(2) 

300 ON S GOSUB 3O00,3500:REM 

VERSCHLUSSELUNG 
400 GOSUB 4000:REM QUIZ 

500 END 

1 000 REM NACHRICHTEN SPEI- 
CHERN 

1 01 DATA "Einen schonen Tag wunsche 
ich" 

1 020 DATA "Wir sehen uns morgen" 

1 030 DATA "Wir treffen uns an der alten 
Eiche" 

1 040 DATA "Dies ist eine geheime Nach- 
richt" 

1050DIMM$(4) 

1 060 FOR J = 1 TO 4 

1070 READM$(J) 

1 080 NEXT J 

1 090 RETURN 
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2000 REM NACHRICHTENZUFALLS- 

ZAHL 

2010N = RND(4) 

2020 RETURN 

3000 REM UMKEHRUNGSCODE 

3005 M$ = M$(N) 

301 FOR J = LEN(M$) TO 1 STEP — 1 

3020 L$ = MID$(M$,J,1) 

3030 C$ = C$ +L$ 

3040 NEXT J 

3050 RETURN 

3500 REM EINFUGUNGSCODE 

3505M$ = M$(N) 

3510FORJ=1 TOLEN(M$) 

3520 L$ = MID$(M$J,1) 

3530 R = RND(26) + 64 

3540 C$ = C$ + L$ + CHR$(R) 

3550 NEXT J 

3560 RETURN 

4000 REM QUIZ 

401 CLS 

4020 PRINT "BITTEN SIE IHREN MITSPIE- 
LER," 

4030 PRINT "DIESE NACHRICHT ZU ENT- 
ZIFFERN" 

4040 PRINT:PRINT:PRINT C$ 

4050 PRINTrPRINT "GEBEN SIE DIE ANT- 
WORT EIN:" 

4060 INPUT A$ 

4070 IF A$ = M$ THEN PRINT "RICHTIG! 
DAS WAR'S!" 
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4080 IF A$ <> M$ THEN PRINT "SCHA- 

DE, DIE NACHRICHT WAR: ";M$ 
4090 RETURN 

Dieses Programm ist schon ganz schon lang, 
aber da wir es Abschnitt fur Abschnitt zusam- 
mengebaut haben, durfte es fur Sie nicht schwie- 
rig gewesen sein, den einzelnen Schritten zu fol- 
gen. Beachten Sie bitte, daft wir die Random- 
Funktion RND jetzt insgesamt dreimal nutzen: 
Wir wahlen die Nachricht durch Random aus, wir 
ermitteln die Codierungsunterroutine durch 
Random, und wir fugen die mit Random selek- 
tierten Buchstaben in die Nachricht ein. 
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Variationen 




Nachdem Sie alle fur dieses Programm notwen- 
digen Schritte kennen, mdchten wir Ihnen einige 
Erweiterungen vorschlagen, mit deren Hilfe Sie 
selbstandig das Programrn ausbauen konnen: 

1. Verandern Sie die AnzaMl der in der ersten Un- 
terroutine gespeicherten Nachrichten, und las- 
sen Sie sie vom Programrn auswahlen. 

2. Wahlen Sie mehr als ei:ne Nachricht in einem 
Durchlauf zur Entzifferung aus. 

3. Geben Sie dem Spieler j-nehr als eine Chance, 
die Nachricht(en) zu entschlusseln. 

Zwei weitere Varianten, die wir bisher noch nicht 

erwahnt haben, die aber leicht in das Programm 

einzubringen sind, wollen wir Ihnen nicht vor- 

enthalten: 

1. Anstatt sich darauf zui beschranken, Buch- 

staben zwischen die Zeichien der Nachricht ein- 
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zufugen, konnen Sie jedes Tastatursymbol im 
Zufallsgenerator zulassen — eingeschlossen 
den Stern und die Anfuhrungsstriche. HINWEIS: 
Oberprufen Sie die bei CHR$(33) startenden Zei- 
chen bis zur CHR$ ( 65 ) . Da s ist wichtig, weil wir in 
Zeile 3030 die Zahl 64 zur Zufallszahl addiert ha- 
ben, da die Codezahl 65 in ASCII auf den Buch- 
staben A verweist. 

2. Wenn Sie das Programm durchfuhren, werden 
Sie feststellen, daft ab dem zweiten Wort einer 
Nachricht schon vor dem ersten Buchstaben ein 
Zufallszeichen generiert wird. Dieses Phanomen 
ist leicht erklarbar. Eine Leerstelle zwischen zwei 
Worten wird vom Computer ebenso als Zeichen 
betrachtet wir ein normales sichtbares Zeichen 
— unsere Unterroutine wirft also hinter jeder 
Leerstelle auch ein Zufallszeichen aus. Wenn Sie 
diesen Nebeneffekt nicht mogen, konnen Sie 
den Computer anweisen, Leerstellen zu ignorie- 
ren, sobald sie auftreten. Sie brauchen nur die 
EINFOGUNGSCODE-Unterroutine um folgendes 
Kommando zu erganzen: 

3525 IF L$ = CHR$(32) THEN C$ = C$ + 
L$:GOTO 3550 

CHR$(32) ist die ASCII-Codezahl fur eine Leer- 
stelle. Die oben angegebene Zeile weist den 
Computer an, falls in der Originalnachricht eine 
Leerstelle auftritt, nur diese der verschlusselten 
Nachricht beizufugen. Da s Zufallszeichen wird 
in diesem Fall ausgelassen und die Arbeit mit 
dem nachsten Zeichen fortgesetzt. 
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Das Rennen der An- 

fangsbiichstabeii 



Sozusagen »spielend« haben wir einige wichtige 
Techniken gelernt: verschiedene Arten, eine Co- 
dierung vorzunehmen, Nachrichten zu spei- 
chern und auszugeben und die Random-Funk- 
tion zu nutzen. Diese Funktion werden Sie im- 
mer und immer wieder in den verschiedensten 
Spielen finden. Aber bis jetzt haben wir eine Spe- 
zialitat des Computers vollig aufter acht gelas- 
sen: die Animation. Bei dieser Spieltechnik geht 
es urn die Bewegung von Bildern auf dem Bild- 
schirm. 

Viele Computerspiele sind ohne Animation nicht 
denkbar. Programmierer verwenden Jahre dar- 
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auf, die fortschrittlichsten neuen Animations- 
techniken zu studieren. In diesem Buch wollen 
wir Sie in die Animation von Zeichen einfuhren 
— das heifit, die Benutzung eines beliebigen 
Symbols der Tastatur und dessen scheinbare Be- 
wegung auf dem Bildschirm. 
Der TRS-80 besitzt mehrere Moglichkeiten der 
Animation. In diesem Kapitel lernen wir die spe- 
zielle Graphikdarstellung des TRS-80 kennen: Sie 
konnen den Computer anweisen, auf jeder ge- 
wunschten Bildschirmposition kleine Rechtecke 
darzustellen. Wenn man nun ein solches Recht- 
eck an einer bestimmten Stelle aufleuchten laftt, 
anschlieftend wieder ldscht und unmittelbar da- 
neben wieder anzeigt, dann scheint sich dieses 
Rechteck zu bewegen. 

Wir beginnen mit einem Rennen zwischen zwei 
Teilnehmern. Auf der linken Seite des Schirms 
plazieren wir die Anfangsbuchstaben von zwei 
Spielern, auch Initiale genannt, daneben er- 
scheint jeweils ein Lichtblock in seiner Aus- 
gangsposition. Von dort bewegen sich die Recht- 
ecke mit unterschiedlicher Geschwindigkeit 
nach rechts, sobald einer der Spieler die RE~ 
TURN-Taste als Startzeichen gedruckt hat. Wenn 
eines der beiden Zeichen die Ziellinie erreicht, 
zeigt das Programm an, wer gewonnen hat. Je- 
desmal, wenn Sie dieses Programm starten, wird 
per Random eine Geschwindigkeit fur jeden 
Spieler ermittelt, so daft feder zu jeder Zeit ge- 
winnen kann. 

Im nachstehenden Hauptprogramm sind die 
vier wichtigsten Teile (Unterroutinen) ebenso 
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wie die Variablen, die wir benutzen werden, auf- 
gefuhrt: 

1 REM ANFANGSBUCHSTABEN- 

RENNEN 

20 REM A$ : DER ERSTE ANFANGS- 

BUCHSTABE 
30 REM B$ : DER ZWEITE ANFANGS- 

BUCHSTABE 
40 REM SA : GESCHWINDIGKEIT VON 

RECHTECK A$ 
50 REM SB : GESCHWINDIGKEIT VON 

RECHTECK B$ 
60 REM PA : POSITION VON RECHTECK 

A$ 
70 REM PB : POSITION VON RECHTECK 

B$ 
75 REM W$ : DER GEWINNER 
80 REM R$ : EINE ANTWORT (START 

DES RENNENS) 
85 REM X : EIN ZAHLER 

90 REM 

1 00 GOSUB 1000:REM EINGABE AN- 

FANGSBUCHSTABEN 
200 GOSUB 2000:REM AUFBAU DES 

BILDSCHIRMS 
300 GOSUB 3000:REM DIE GE- 
SCHWINDIGKEIT 

400 GOSUB 4000.REM DAS RENNEN 

500 END 
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Eingabe der Initialen 



/^Mann, Killer. 

/ Du hastdich 
/ aber £ 
I verandert 1 


^5 


PPT_ £ 


r 


Im ^ 
Warenhaus 
Walker. j 


1 in den letz- ^ 








•^K,jjlmwi 


I ten beiden 

1 JahreniWo bist J 


nV^ 






— • 


^ 




V Dugewesen? J 




1 ~ cmAA 


Ttfl^j 


* 




>KyZJBB| 








£z~ 





Zuallererst benotigen wir zwei Anfangsbuch- 
staben, die das Rennen gegeneinander austra- 
gen. Alles andere in der folgenden Routine sollte 
Ihnen schon bekannt sein: 



1 000 REM EINGABE DER ANFANGS- 

BUCHSTABEN 

1 01 CLS.-PRINT "GEBEN SIE DEN AN- 

FANGSBUCHSTABEN DES ERSTEN 

SPIELERS EIN:" 
1 020 INPUT A$ 
1 030 PRINT:PRINT "NUN GEBEN SIE DEN 

ANFANGSBUCH STABEN DES ZWEI- 

TEN SPIELERS:" 
1040 INPUT B$ 
1050 RETURN 
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Wir loschen den Bildschirm und fragen nach den 
jeweiligen Anfangsbuchstaben der beiden Spie- 
ler, die wir in der nachsten Unterroutine verwen- 
den wollen. 



Aufbau cies Blldschirms 




In diesem Abschnitt miissen wir uns zuerst ein~ 
mal mit der Frage befassen, wie ein TRS-80-Bild- 
schirm gestaltet wird. Wahrend Sie dieses Kapi- 
tel lesen, sollten Sie zusatzlich das Bildschirm- 
diagramm in Ihrem TRS-80-Handbuch beachten. 
Der TRS-80 verfugt uber 16 Zeilen vom oberen bis 
zum unteren Rand des Bildschirms. In dieser Un- 
terroutine geben wir den ersten Anfangsbuch- 
staben am Anfang der dxitten Zeile von oben 
und den zweiten auf der gLeichen Stelle in Zeile 5 
aus. Die Zeile 2010 loscht den Bildschirm, uber- 
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springt zwei Zeilen und zeigt A$ in der dritten 
Zeile an. Zeile 2020 setzt zwei weitere Zeilen vor 
und laftt B$ in der ftinften von oben erscheinen. 
Wichtig zu wissen ist auch, daft der Bildschirm in 
6.144 kleine Rechtecke eingeteilt ist, die Sie an je- 
der beliebigen Stelle aufleuchten und verschwin- 
den lassen konnen. Diese Bildschirmpositionen 
sind matrixformig in der Horizontalen von bis 
127 und in der Vertikalen von bis 47 durchnum- 
meriert. Das Kommando 

SET (0,0) 

gibt auf der auftersten Stelle oben links ein 
Rechteck aus. 



SET (127,47) 

zeigt einen solchen Lichtblock auf der untersten 
Position ganz rechts. 

In Zeile 2030 lassen wir das Zeichen aufleuchten 
(10,7), das heiftt, zehn Einheiten vom linken und 
sieben Einheiten vom oberen Bildschirmrand 
entfernt. Damit steht es genau neben dem ersten 
Anfangsbuchstaben. Anschlieftend zeigt der 
Computer ein Rechteck auf (10,13), also wieder 
zehn Einheiten vom linken, aber diesmal drei- 
zehn vom oberen Rand entfernt. Diese Position 
befindet sich neben dem zweiten Initial. 
Probieren Sie in jedem Fall auch mal andere Bild- 
schirmstellen aus. Benutzen Sie dabei aber bitte 
eines der TRS»80-Formulare fur die Bildschirm- 
ausgabe, mit dem Sie die JKnzeige des Rechtecks 
vorher genau planen konnen. 

64 



2000 REM AUFBAU DES BILD- 

SCHIRMS 

201 CLS:PRINT:PRINT:PRINT A$ 

2020 PRINT:PRINT B$ 

2030SET(10,7):SET(1O,13) 

2040 PRINT:PRINT 

2050 PRINT "DROCKEN SIE DIE RETURN- 
TASTE ZUM START DES RENNENS:" 

2060 INPUT R$ 

2070 RETURN 



Animation — die Kwnst der 
Bewegimg 



Manny hat ein Verbindungs- 
programm zu alien anderen Computern 
der Stadt geschrieben... und 
damit haben wir sie in 
der Hand! 



GroBe 
Sache, 
Killer! 



Bevor wir uns mit dem Rennen selbst beschafti- 
gen, sollten wir untersuchen, was Animation fur 
einen Computer bedeute-t. Wie schon gesagt, 
gibt es viele Arten der Animation. Wirspezialisie- 
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ren uns hier auf die Bewegung eines Zeichens 
quer uber den Bildschirm mittels der vorhande- 
nen TRS-80-Graphikfunktion. 
Wie wir es schon fruher bei neuer Ablauflogik ge- 
tan haben, werden wir nun ein kleines Testpro- 
gramm schreiben. Wenn Sie gerade das Pro- 
gramm »Rennen« eingeben, sichern Sie es bitte 
und geben NEW ein,' bevor Sie dieses Testpro- 
gramm erfassen. 

Animation besteht grundsatzlich aus der Wie- 
derholung mehrerer Schritte: Wir bringen Men- 
schen dazu, zu glauben, daft sich etwas uber den 
Bildschirm bewegt, indem wir ein Zeichen an ei- 
ner bestimmten Stelle des Bildschirms ausge- 
ben, es wieder loschen und an einer anderen 
Stelle, ein wenig entfernt, wieder ausgeben. 
Durch die standige Wiederholung dieser Schritte 
in kurzen Abstanden scheint sich das Zeichen zu 
bewegen — zu »laufen«. Und mit dieser Schritt- 
folge fuhrt man die Animation durch: 

1. Ausgabe eines Zeichens auf dem Bildschirm. 

2. Wiederholung der folgenden Schritte in einer 
bestimmten Anzahl: 

a) Loschen des Zeichens, 

b) Erneute Ausgabe des Zeichens in einer gerin- 
gen Entfernung. 

Versuchen Sie es einmal mit dem folgenden Ani- 
mations-Testprogramm: 

10CLS 

20 SET (45,20) 

30 FOR X = 45 TO 9S 
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40 RESET (X,20) 

50 SET (X+1,20) 

60 FOR J = 1 TO 100:NEXT J 

70 NEXT X 

80 END 

Zeile 10 loscht den Bildschirm. Die Zeile 20 be- 
deutet: Gehe dahin, wo das kleine Rechteck 
erscheinen soil, und zeige es dort, das heiftt 45 
von links und 20 von oben. Die Schleife in den 
Zeilen 30 bis 70 erhoht die Variable X von 45 auf 
95. Bei jedem Schleifendurchlauf wird mit RESET 
in Zeile 40 das Rechteck geloscht und mit SET in 
Zeile 50 eine Bildschirmstelle weiter rechts wie- 
der ausgegeben. Bei der letzten Durchfuhrung 
enthalt X den Wert 95, also wird das Zeichen auf 
95,20 geloscht und auf 96,20 (96 entspricht 
X+1 ) wieder sichtbar. 

Die Zeile 60 stellt eine »Pause« fur den Computer 
dar. Dieser Stillstand wird durch einen einfachen 
Zahlvorgang von 1 bis 10O erreicht. Ohne diesen 
Befehl wurde der Lichtblock viel zu schnell den 
Bildschirm uberqueren. Wahrend des »Leer- 
laufs« zahlt der Computer, ohne etwas anderes 
zu tun. Diese Tatsache bewirkt eine Verlangsa- 
mung der Bewegung. Verandern Sie doch einmal 
die Zahl 100 in Zeile 60 und beobachten den Ef- 
fekt! 

Unsere gesamte Animation enthalt die gleiche 
Art von Schritten. Allerdings mussen wir jeweils 
Anpassungen vornehmen, die sich aus der Situa- 
tion ergeben. Manchmal wissen wir nicht im vor- 
aus, wie weit wir das Zeichen bewegen wollen. 
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Manchmal, wie beispielsweise spater in diesem 
Kapitel, haben wir zwei Zeichen, die wir bewegen 
wollen, und zwar jeweils urn eine unterschiedli- 
che Anzahl von Spalten bei jedem Bewegungs- 
schritt. In welcher der beiden Situationen Sie 
sich auch immer befinden, denken Sie daran, 
daft wir standig die gleichen Schritte wiederho- 
len: Wir loschen das Zeichen, geben es ein Stuck 
weiter wieder aus und machen eine Pause. Die 
einzige tatsachliche Schwierigkeit, auf die wir in 
diesem Rennen treffen, besteht darin, das »Stuck 
weiter« herauszufinden. Und hierfur benutzen 
wir wieder eine ZufallszahL 



Dle Wahl der Geschwlndlgkelt 




Animation entsteht also durch die Ausgabe ei- 
nes Zeichens an einem bestimmten Punkt des 
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Bildschirms, seine Loschung, die erneute Ausga- 
be in einer kurzen Entfernung, seine Loschung, 
die erneute Ausgabe in einer kurzen Entfer- 
nung. . . 

Auf dem Bildschirm sehen wir die beiden Recht- 
ecke in unterschiedlichen Zeilen in der Spalte 10. 
Wenn wir den Lichtblock A loschen und ihn in 
der Spalte 12 wieder ausgeben, hat er sich zwei 
Stellen weit bewegt. Wenn wir das Rechteck B in 
Spalte 11 ausgeben, dann 1st es nur urn eine Stel- 
le vorgeruckt. 

Je mehr Stellen zwischen der ursprtinglichen Po- 
sition und der neuen liegen, um so schneller 
scheint sich das Zeichen zu bewegen. Deshalb 
werden wir Zufallszahlen zu Hilfe nehmen, um 
die Bewegungsgeschwindigkeit von A und B zu 
bestimmen. Die Zahlen konnen entweder 1, 2 
oder 3 sein, da wir den Rechtecken eine Ge- 
schwindigkeit von 1, 2 oder 3 geben wollen. 

3000 REM AUSWAHL DER GE- 

SCHWINDIGKEIT 

3010SA = RND(3) 
3020SB = RND(3) 
3030 RETURN 

Bei jedem Programmlauf konnen SA und SB 1, 2 
oder 3 sein. In der Unterroutine DAS RENNEN ad- 
dieren wir jeweils SA und S B zur derzeitigen Posi- 
tion des betreffenden RecHtecks. Damit erfahren 
wir die Stelle, auf der das Zeichen im nachsten 
Schritt erscheinen soil. W&nn SA den Wert 3 ent- 
halt und die zur Zeit ein genommene Position 
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des Lichtblocks ist 10, dann wird er in dieser Spal- 
te geloscht und anschlieftend in der dreizehnten 
angezeigt, im folgenden in sechzehn und so wei~ 
ter. Beinhaltet SB die Zahl 1, wird das zweite Sym- 
bol zu einem Zeitpunkt immer nur urn eine Ein- 
heit vorrucken, und das Initial A wird das Ren- 
nen gewinnen. 



Das Remnen 



f Manny wird dlch unter- 
I halten, wahrend ich die Macht 
I in der Stadt 
ubernehme. 




Die Speicherung der GescJiwindigkeit von A und 
B genugt nicht. Wir mussen ebenfalls jede er- 
reichte Bildschirmpositiom der beiden Rechtecke 
speichern. Wenn wir das nicht tun, wie sollen wir 
dann erkennen konnen, welches von beiden ge- 
wonnen hat? Nehmen wir an, wir haben be- 
schlossen, daft derjenige 7\nfangsbuchstabe ge- 
winnt, dessen Symbol als erstes die Position 90 
uberschreitet. Wir kennen die Startpositionen 
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(Spalte 10) von A und B, aber da die Geschwindig- 
keit der beiden durch ein Randomverfahren er- 
mittelt wird, wissen wir nicht, welcher Lichtblock 
sich urn zwei oder nur um erne, zwei oder drei 
Stellen weiterbewegt hat. Deshalb benotigen wir 
zwei Variable, PA und PB, die fur die Position von 
A und B stehen. Diese geben uns Auskunft uber 
die durch die jeweils letzte Bewegung erreichte 
Position. 

Und noch etwas: Es ware eine nette Geste, wenn 
nach Beendigung des Rennens der Gewinner 
durch das Programm genannt wiirde. Dafur bele- 
gen wir die Variable W$, in der wir den Anfangs- 
buchstaben speichern, der als erster die Ziellinie 
uberschreitet. 

Zur besseren Ubersicht teilen wir diese Unterrou- 
tine in kleine Bausteine auf und untersuchen je- 
den Abschnitt einzeln: 

4000 REM DAS RENNEN 

401 PA = 10:PB = 10 

Wir beginnen mit der In Itialisierung, also der 
erstmaligen Festsetzung der Position jedes 
Rechtecks durch den Wert 10, da wir sie bereits in 
der Spalte 10 ausgegeben haben. Anschlieftend 
bewegen wir das Rechtecl< A: 

4020 RESET (PA,7) 
4030 PA = PA + SA 
4040 SET (PA,7) 

4050 IF PA > 90 THE 1M W$ = A$:GOTO 
4120 
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Die ersten drei Zeilen sorgen fur die Bewegung, 

die letzte Zeile dient zur Oberprufung, ob der An- 

fangsbuchstabe das Rennen gewonnen hat. 

Die Zeile 4020 positioniert mit RESET auf Zeile 7 

und auf die aktuelle Spalte, in der sich das Recht- 

eck zur Zeit befindet, und loscht das Zeichen auf 

dem Bildschirm. Die Zeile 4030 addiert in PA die 

Anzahl Stellen, die A weitergehen soil. PA enthalt 

am Anfang 10. Wenn SA eine 2 enthalt (abhangig 

von der RND-Funktion), dann hat PA den Wert 10 

+ 2, also 12. Die Befehlszeile 4040 mit dem SET 

weist den Computer an, in welcher Spalte er das 

Symbol jetzt ausgeben soil. 

Wir benutzen die gleichen Befehle immer und 

immer wieder, urn den Anfangsbuchstaben A$ 

zu bewegen: Er wird auf seiner letzten Position 

geloscht, die neue Position wird berechnet, und 

er wird an dieser Stelle ausgegeben. 

Die Zeile 4050 pruft, ob PJK einen grofteren Wert 

als 90 enthalt. 1st das der Fall, dann ist A$ der Ge- 

winner, und wir konnen in den Teil des Pro- 

gramms ubergehen, in dem der Gewinner ange- 

kundigt wird. Ist PA nocln nicht grofter als 90, 

werden die von dieser Bedingung abhangigen 

Befehle einfach ignoriert, und wir fahren mit der 

Bewegung von B fort: 



4060 RESET (PB,13) 
4070 PB = PB + SB 
4080 SET (PB,13) 

4090 IF PB > 90 THEN W$ = B$:GOTO 
4120 
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Diese vier Zeilen sind identisch mit den Zeilen, 
die der Fortbewegung von A dienen, mit Ausnah- 
me der Tatsache, daft wir hier die fur B bestimm- 
ten Variablen benutzen und die RESET- und die 
SET-Anweisung sich auf die Zeile beziehen, in der 
sich B bewegt. Wir loschen das Rechteck B in sei- 
ner ursprunglichen Position, ermitteln die neue 
Stelle und geben es dort aus. Anschlieftend pru- 
fen wir, ob es bereits das Rennen gewonnen hat. 
Wenn nicht, fahren wir fort: 

41 00 FOR X = 1 TO 40:NEXT X 
41 1 GOTO 4020 



Die Zeile 4100 besteht aus einer »Pausen«-Schlei- 
fe, die vierzigmal durchlaufen wird. In dieser Zeit 
pausiert das Programm. Da Computer bekannt- 
lich sehr schnell arbeiten, wiirde man ohne diese 
Pause das Rennen iiberhaupt nicht verfolgen 
konnen, da die Symbole nur so ttber den Schirm 
zischen wurden. Sie konn en gerne mit der Lange 
der Pause experimentieren, und zwar durch Ver- 
anderung der Zahl 40 in einen von Ihnen beliebig 
bestimmten Wert. 

Die Zeile 4110 verweist das Programm zuruck auf 
den Teil, in dem das Zeichen A bewegt wird. Hier- 
durch entsteht eine Schleife. Wir bewegen das 
Rechteck A und priifen, ob es gewonnen hat, be- 
wegen dann das Rechteck B und priifen, und so 
weiter, bis entweder das eine oder das andere 
die letzte Spalte (90) uberschritten hat. Dann 
verzweigt das Programm zur Zeile 4120: 
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4120PRINT:PRINT "DER GEWINNER 1ST: 

";W$ 
41 30 RETURN 

und das Rennen ist beendet. 



Das gesamte Programm 




1 REM AMFANGSBUCHSTABEN- 

RENNEN 

20 REM A$ : DER ERSTE ANFANGS- 

BUCHSTABE 
30 REM B$ : DEFL ZWEITE ANFANGS- 

BUCHSTABE 
40 REM SA : GESCHWINDIGKEIT VON 

RECHTECK A$ 
50 REM SB : GESCHWINDIGKEIT VON 

RECHTECK B$ 
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60 REM PA : POSITION VON RECHTECK 

A$ 
70 REM PB : POSITION VON RECHTECK 

B$ 
75REMW$ :DERGEWINNER 
80 REM R$ : EINE ANTWORT (START 

DES RENNENS) 
85 REM X : EIN ZAHLER 

90 REM 

1 00 GOSUB 1000.-REM EINGABE AN- 

FANGSBUCHSTABEN 

200 GOSUB 2000:REM AUFBAU DES 

BILDSCHIRMS 

300 GOSUB 3000:REM DIE GE- 

SCHWINDIGKEIT 

400 GOSUB 4000:REM DAS RENNEN 

500 END 

1000 REM EINGABE DER ANFANGS- 

BUCHSTABEN 

1 01 CLS:PRINT "GEBEN SIE DEN AN- 
FANGSBUCHSTABEN DES ERSTEN 
SPIELERS EIN:" 
1 020 INPUT A$ 

1 030 PRINTPRINTPRINT "NUN DEN AN- 
FANGSBUCHSTABEN DES ZWEITEN 
SPIELERS:" 
1 040 INPUT B$ 
1 050 RETURN 

2000 REM AUFBAU DES BILD- 
SCHIRMS 

201 CLS:PRINT:PRINT:PRINT A$ 
2020 PRINTPRINT B$ 
2030 SET(10,7):SET(1O,13) 
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2040 PRINTrPRINT 

2050 PRINT "DROCKEN SIE DIE RETURN- 
TASTE ZUM START DES RENNENS:" 

2060 INPUT R$ 

2070 RETURN 

3000 REM AUSWAHL DER GE- 

SCHWINDIGKEIT 

3010SA = RND(3) 

3020SB = RND(3) 

3030 RETURN 

4000 REM DAS RENNEN — 

4010 PA = 10:PB= 10 

4020 RESET (PA, 7) 

4030 PA = PA + SA 

4040 SET (PA.7) 

4050 IF PA > 90 THEN W$ = A$:GOTO 

4120 
4060 RESET (PB.13) 
4070 PB = PB + SB 
4080 SET (PB.13) 
4090 IF PB > 90 THEN W$ = B$:GOTO 

4120 
41 00 FOR X = 1 TO 40:NEXT X 
41 00 GOTO 4020 
41 20 PRINT:PRINT "DER GEWINNER 1ST: 

";W$ 
41 30 RETURN 
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Vari 




Wenn Sie einmal wissen, wie der Hase lauft, fallt 
Ihnen die Animation immer leichter und leichter. 
Alles, was Sie brauchen, ist Praxis. Und damit Sie 
sich nicht langweilen, machen wir Ihnen noch 
vier Vorschlage zur Optimierung des Pro- 
gramms. Sie haben sicher Phantasie genug, um 
sich noch weitere auszudenken. 

1. Bildschirmformat: Gestalten Sie den Schirm 
nach Ihren Vorstellungen durch Ausgabe eines 
Spieltitels oben auf dem Bildschirm, durch Mar- 
kierung der Ziellinie, durch Zeichnung eines Rah- 
mens rund um die Rennstrecke. Sie sollten dabei 
Ihrer Phantasie freien Lauf lassen. 

2. Hohere Geschwindigkeit: Wir haben nur eine 
Geschwindigkeit von 1, 2 oder 3 gewahlt. Sie 
wunschen sich vielleicht weitere Variationen. 
Wissen Sie noch, wie Sie «die Random-Funktion 
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verwenden mussen, um den Bereich der verfug- 
baren Zahlen zu verandern? Vor alien Dingen 
denken Sie daran: Wenn Sie die Geschwindigkeit 
zu hoch ansetzen, sieht es aus, als ob der An- 
fangsbuchstabe uber den Bildschirm springt. Sie 
konnen aber auch die Ziellinie verandern oder 
die Pause in Zeile 4100. 

3. Mehr Teilnehmer am Reniten: Was halten Sie 
von einem dritten Anfangsbuchstaben als weite- 
ren Rennteilnehmer? Sie mussen bloft drei einge- 
ben, drei Geschwindigkeiten festsetzen, sie auf 
ihre Startpostitionen ausgeben und alle drei zur 
selben Zeit bewegen. Benutzen Sie die gleichen 
vier Schritte in der RENNEN-Unterroutine fur das 
dritte Rechteck, wie wir sie fur die beiden ande- 
ren verwendet haben. Sie konnen sogar einen 
vierten oder einen funften Teilnehmer mitspie- 
len lassen. 

4. Rernien ruckwarts: Sie konnen das Rennen 
auch von der rechten zur linken Seite des Bild- 
schirms laufen lassen. Hierzu mussen Sie einige 
Zahlen verandern. Beim BILDSCHIRMAUFBAU 
positionieren Sie mit SET auf eine hohe Spalten- 
nummer, sagen wir zum Beispiel 100, und geben 
Sie die Symbole dort aus. Deshalb mussen Sie 
auch in der RENNEN-Routine die Variablen PA 
und PB mit 100 initialisieren. Anschliefiend wird 
ruckwarts gezahlt: 

4030 PA = PA — SA 
4070 PB = PB - SB 

Vergessen Sie nicht zu uberprufen, ob die Posi- 
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tion des jeweiligen Anfangsbuchstabens KLEI- 
NER ist als die Ziellinie: 

4050 IF PA < 10 THEN.W$ = A$:GOTO 

4120 
4090 IF PB < 10 THEN W$ = B$:GOTO 

4120 

Und jetzt eine Herausforderung: Konnen Sie 
das Rennen von der obersten Zeile des Bild- 
schirms zur untersten durchfuhren? Dazu mus- 
sen Sie bestimmt nicht viel andern. Aber beach- 
ten Sie bitte, daft statt der Spaltennummern, die 
sich in diesem Fall nicht verandern, die Zeilen- 
nummern bei jeder Bewegung neue Werte erhal- 
ten mtissen, da die Anfangsbuchstaben sich ja 
von Zeile zu Zeile, also senkrecht, bewegen und 
nicht, wie in unserem jetzigen Programm, von 
Spalte zu Spalte. 
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Die Seifenblase platzt 



Das Rennen der Anfangsbuchstaben war noch 
ein vergleichsweise einfaches Spiel — es bestand 
eigentlich nur aus dem Rennen. Animation kann 
aber ebensogut als Teil komplizierterer Spiele 
auftreten. Stellen Sie sich folgenden Bildschirm- 
inhalt vor: Auf der rechten Seite befindet sich ein 
»BalIon« oder eine »Seifenblase« und auf der lin- 
ken der Anfangsbuchstabe eines Spielers. In der 
unteren Halfte des Bildschirms wird dem Spieler 
ein arithmetisches Problem genannt, das er oder 
sie losen mufi. Wenn die Antwort richtig ist, be- 
wegt sich der AnfangsbucHstabe uber den Bild- 
schirm und bringt die »Blase«, in der sich eine 
Nachricht befindet, zum Platzen. 
Dieses Spiel ist eine Kombi nation aus vielen Ele- 
menten, die wir bereits von fruheren Program- 
men her kennen: Animation, Zufallszahlen, die 
Benutzung von DATA-Anweisungen, die Mog- 
lichkeit mehrerer Antwortv/ersuche. Das folgen- 
de Programm weicht von dem im letzten Kapitel 
erarbeiteten insofern ab, daft wir nicht ein Licht- 
symbol uber den Bildschirm bewegen, sondern 
den Anfangsbuchstaben des Spielers selbst: Die 
Seifenblase wird durch die leuchtenden Recht- 
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ecke dargestellt, wir werden jedoch durch Dar- 
stellung und Loschung einen Buchstaben in Be- 
wegung setzen. Aber keiner dieser Bausteine 
mufi in sich selbst kompliziert sein. 



1 REM- 



— DIE SEIFENBLASE PLATZT- 



20 REM 1$ 
30 REM H 
40 REM V 
50 REM X 

PROBLEM 
60 REM Y 

PROBLEM 
70 REM A 
80 REM J 

90 REM 

1 00 GOSUB 1000:REAA BILDSCHIRM- 

AUFBAU 

200 GOSUB 2000:REM PROBLEM (S) 



ANFANGSBUCHSTABE 
HORIZONTALE POSITION 
VERTIKALE POSITION 
ZUFALLSZAHL FUR DAS 

ZUFALLSZAHL FUR DAS 

ANTWORT 
ZAHLER 



300 GOSUB 3000:REAA- 

SEIFENBLASE 

400 END 



-PLATZEN DER 
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Der Bildschirmaufbau 




Diese Unterroutine enthalt mehrere kleine Teil- 
bereiche. Zuerst geben wir diesem Spiel einen 
Namen und setzen den Titel an den oberen Rand 
des Bildschirms. Dann zeichnen wir den Ballon 
und geben den Anfangsbuchstaben ein. Zum 
Schlufi erklaren wir dem Mitstreiter das Spiel. 
Zum besseren Verstandnis sehen wir uns jeden 
Teilbereich im einzelnen a n: 



1 000 REM- 



-BIL DSCHIRM AUFBAU— 



1010CLS 

1 020 PRINT @20,"DIE SEIFENBLASE 
PLATZT" 



Das ist eine neue Form des PRINT-Befehls. Bei der 
Benutzung des PRINT @ <das heiftt PRINT AT) 
konnen Sie Zeichen auf jed er Bildschirmposition 
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ausgeben. Wir wollen uns nun etwas eingehen- 
der mit diesem Thema befassen, deshalb sollten 
Sie ein Arbeitsformular fur Bildschirmausgabe 
am TRS-80 zu Rate Ziehen, falls Sie eins zu Hand 
haben. 

Der Bildschirm ist eingeteilt in sechzehn Zeilen 
mit jeweils 64 Spalten, also stehen insgesamt 16 
x 64 Positionen zur Verfugung, auf denen ein Zei- 
chen darstellbar ist. Wenn wir links oben begin- 
nen, heiftt die erste Adresse 0, die nachste 1 und 
so welter bis zur letzten rechts unten. Die erste 
Zeile besteht aus den Stellen bis 63, die zweite 
aus 64 bis 127, die dritte aus 128 bis 191 Die aller- 
letzte Position tragt die Nummer 1024. 
Mit dieser Information konnen Sie Ihrem Com- 
puter genau mitteilen, auf welcher Bildschirm- 
stelle Sie die Ausgabe einer Nachricht oder eines 
Zeichens wunschen. Versuchen Sie es doch ein- 
mal mit dem folgenden Beispiel: 

PRINT @475 /'HALLO" 

Das angegebenen Wort wird ziemlich genau in 
der Mitte des Bildschirms y namlich in der achten 
Zeile, erscheinen. Das oben dargestellte Kom- 
mando (Zeile 1020) stellt den Text »DIE SEIFEN- 
BLASE PLATZT« ab Ausga beposition 20 dar, das 
heiftt, zwanzig Stellen von der ersten links oben 
entfernt. 

Im nachsten Schritt zeichtnen wir die Seifenblase 
durch die Anzeige von 28 rechteckigen Symbo- 
len. Fur diese benotigen \yvir insgesamt 56 Posi- 
tionsnummern. Bitte erirt nern Sie sich, daft wir 
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pro Rechteck zwei Angaben brauchen, die nicht 
den eben erklarten Bildschirmpositionen ent- 
sprechen. In der Breite stehen uns doppelt so vie- 
le Adressen zur Verfugung (0 bis 127) und in der 
Hohe das Dreifache (0 bis 47). Das bedeutet, daft 
Sie sechsmal mehr Lichtsymbole als normale 
Zeichen auf dem Bildschirm darstellen konnen. 
Es ist muftig, die achtundzwanzig Lichblocke mit 
ebenso vielen SET-Befehlen auf dem Bildschirm 
anzuzeigen. Wir verwenden hierzu die Kombina- 
tion der DATA-Anweisung mit dem READ-Befehl: 

1 030 DATA 88,6,90,6,92,6,94,6,86,7,96,7 
1 040 DATA 84,8,98,8,82,9,100,9,81,10,101,10 
1 050 DATA 81,11,101,11,81,12,101,12,81,13, 

101,13 
1 060 DATA 82,14,100,14,84,15,98,15,86,16 
1 070 DATA 96,16,88,17,90,17,92,17,94,17 
1 080 FOR J = 1 TO 28 
1 090 READ H,V:SET (H,V) 
11 00 NEXT J 

Wenn der Befehl in Zeile 1090 vom TRS-80 erst- 
malig durchgefiihrt wird, findet ein Lesevorgang 
statt, mit dem in den Variablen H und V die er- 
sten beiden mit DATA festgelegten Werte gespei- 
chert werden. Da dies die Zahlen 88 und 6 sind, 
lautet der Befehl in Zeile 1090 eigentlich SET 
(88,6). Beim nachsten Durchgang werden die 
Angaben 90 und 6 gelesen, und der SET-Befehl 
bezieht sich auf diese Zahlen. Mit der Variablen J 
wird festgelegt, daft die Schleife achtundzwan- 
zigmal durchgefiihrt wird. Durch diesen Trick 
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werden alle DATA-Definitionen verarbeitet, und 
die Seifenblase ist fertig. 

Im nachsten Schritt nimmt das Programm den 
Anfangsbuchstaben des Mitspielers auf und 
gibt ihn auf Position 326 aus: 

1110 PRINT @576,"BITTE GEBEN SIE IHREN 

ANFANGSBUCHSTABEN EIN:" 
1 1 20 INPUT 1$ 
11 30 PRINT @326,I$ 

Zeile 1010 enthalt die Anweisung, den Text in der 
zehnten Zeile des Bildschirms auszugeben, Zeile 
1130 besteht aus dem Befehl, zuruck zur sechs- 
ten Bildschirmzeile zu springen und dort den An- 
fangsbuchstaben zu zeigen. Zu guter Letzt erkla- 
ren wir dem Teilnehmer noch die Spielregel: 

1 1 40 PRINT @640/'BEANTWORTEN SIE EI- 
NE FRAGE RICHTIG, UND" 

1 1 50 PRINT "IHR ANFANGSBUCHSTABE 

BRINGT DIE SEIFENBLASE ZUM PLAT- 
ZEN." 

1 1 60 FOR J = 1 TO 5O0:NEXT J 

1 1 70 RETURN 

Die Ausgabeposition 640 ist die elfte Zeile des 
Bildschirms, der Text wird also in Zeile 11 und 12 
sichtbar. Im Programmbefehl 1160 geht es wie- 
der darum, eine kurze Pause einzulegen, urn 
dem Spieler Gelegenheit zu geben, den gesam- 
ten Text zu lesen, bevor es weitergeht. 
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Wie die Frage gestellt wird 




In der Unterroutine 2000 werden dem Spieler so 
lange Fragen gestellt, bis er eine richtig beant- 
wortet hat. Nach jeder Frage mussen wir einen 
Teil des Bildschirms loschen, und dafiir benut- 
zen wir eine zweite Unterroutine, die auf Zeile 
2500 beginnt. 



2000 REM- 



-PROBLEMSTELLUNG- 



2010X = RND(100) 
2020Y = RND(100) 
2070 GOSUB 2500:REM LOSCHUNG 

DER UNTEREN BILDSCHIRMHALF- 

TE— 
2040 PRINT @576,"WIEVIEL 1ST ";X;" + 

2050 INPUT A 
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2060 IF ■ A <> X + Y GOTO 2010 
2070GOSUB2500:REM LOSCHUNG 

DER UNTEREN BILDSCHIRMHALF- 

TE— 
2080 RETURN 

Zuerst greifen wir zwei Zufallszahlen zwischen 1 
und 100 auf und nennen sie X und Y. Sie konnen 
natilrlich die 100 in eine Ganzzahl in beliebiger 
Hohe umwandeln. Anschlieftend loschen wir die 
untere Bildschirmhalfte und zeigen die Addi- 
tionsaufgabe auf der zehnten Zeile (Adresse 
576). Dieser Vorgang wird wiederholt, bis eine 
richtige Losung eingegeben wird. In diesem Mo- 
ment ( A = X + Y) verzweigt das Programm auf Be- 
fehlszeile 2060 und fuhrt auch hier eine L6- 
schung durch. Anschliefeend erfolgt der Rtick- 
sprung zum Hauptprogramm. 
Aber wie wird geloscht? Dies erfolgt einfach 
durch Positionierung auf jede Bildschirmposi- 
tion und die Ausgabe einer Leerstelle mit PRINT: 
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2500 PRINT LOSCHUNG DER UNTE- 

REN BILDSCHIRMHALFTE- 
2510 FOR J = 512 TO 703 
2520 PRINT @J," " 

2530 NEXT J 
2540 RETURN 

Hinter den Adressen 512 bis 704 verbergen sich 
die Bildschirmzeilen 9 bis 11. 



Die Seifenblase zum Platzen bringen 




Nun besteht unsere Arbeit aus der Bewegung 
des Anfangsbuchstabens von seiner Ausgangs- 
position in Richtung auf die Seifenblase. Wir ha- 
ben das Zeichen auf Stelle 326 ausgegeben, also 
loschen wir es hier erst einmal durch Ausgabe ei- 
ner Leerstelle. Dann gebe-n wir das Zeichen auf 
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Position 327 aus, urn ihm den Anschein der Be- 
wegung urn eine Stelle zu geben. Hier wird es 
auch wieder geloscht unci wiederum eine Stelle 
weiter angezeigt. Diese Schritte werden so lange 
wiederholt, bis sich das Zeichen auf Adresse 
363, auf der linken Seite der Seifenblase befin- 
det. 

Im Rennen der Anfangsbuchstaben mufiten wir 
die Spur der beiden Rechtecke verfolgen und je- 
desmal uberprufen, ob eines der beiden durch 
seine Bewegung die Ziellinie uberquert hatte. 
Wir konnten ohne diese Aufzeichnung nicht mit 
Sicherheit bestimmen, auf welcher Position sich 
ein Zeichen zu irgendeinem beliebigen Zeit- 
punkt befand, da der Ablauf durch eine Zufalls- 
zahl bestimmt wurde. Hier wissen wir nun ganz 
genau, wie wir das in 1$ gespeicherte Initial be- 
wegen wollen, so daft wir eine Schleife fur die Be- 
wegung aufbauen kbnnen, die das Zeichen von 
Position 326 nach Position 363 bringt: 

3000 REM PLATZEN DER SEIFEN- 
BLASE 

301 FOR H = 326 TO 363 
3020 PRINT @H," " 
3030 PRINT @H+ 1,1$ 
3040 FOR J = 1 TO 50:NEXT J 
3050 NEXT H 

Diese Programmschritte kennen wir schon: Auf 
jeder Adresse von 326 bis 362 loschen wir den 
Anfangsbuchstaben unci geben ihn in der 
nachstfolgenden Spalte wieder aus. Im letzten 
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Schleifendurchgang enthalt H den Wert 326, und 
das Zeichen wird in Spalte H + 1, das heiftt auf 
363, erscheinen. 

Der Anfangsbuchstabe befindet sich nun links in 
der »Seifenblase«. Wenn wir den ganzen Ballon 
loschen, wird das Zeichen auch geloscht. Wir 
kdnnten natiirlich auf die gleiche Art loschen, 
wie wir die Zeichnung gemacht haben — durch 
die Benutzung von DATA fur die RESET-Adressen 
— , aber diesmal durch die Ausgabe von Leerstel- 
len auf jeder Position. Wir versuchen es aber mal 
mit einer anderen Methode. Wir wissen, daft die 
Blase eine bestimmte Flache auf dem Schirm be- 
deckt, und zwar die Zeilen 3, 4, 5 und 6. Keine 
Zeile ist jedoch vollig ausgenutzt, nur elf Stellen 
sind belegt. 

3060 FOR J = 168 TO 360 STEP 64 
3070 PRINT @J," 
3080 NEXT J 

Wenn Sie nun einmal das Bildschirmformularan- 
sehen, erkennen Sie, daft die Adresse 168 dem 
oberen linken Rand der Seifenblase entspricht. 
Ab dieser Position geben v/ir elf Leerstellen aus, 
unmittelbar darunter wiederum die gleiche An- 
zahl. Dieser Vorgang wird danach noch zweimal 
wiederholt. Wir wissen ja, daft jede Zeile aus 64 
Stellen besteht, also wird die Schleife in entspre- 
chenden Sprungen ab dem Wert 168 wiederholt 
(Zeile 3060), und jedesmal werden elf Leerstel- 
len ausgegeben. 
Abschlieftend geben wir die Nachricht »RICHTIG! 

91 



GEWONNEN!« im Inneren der Blase aus — das 
heiftt, dort, wo sie einmal war. 

3090 PRINT @297,"RICHTIG! GEWONNEN!" 
31 00 RETURN 

Die Adresse 297 befindet sich ungefahr in der 
Mitte der ehemaligen Seifenblase. Der Spieler 
wird den Eindruck haben, die Blase sei ver- 
schwunden oder »explodiert« und hatte den Text 
»RICHTIG! GEWONNEN!« enthalten. 



Das ganze Programm 
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1 REM 

PLATZT- 
20 REM 1$ 
30 REM H 



DIE SEIFENBLASE 



: ANFANGSBUCHSTABE 
: HORIZONTALE POSITION 



40 REM V : VERTIKALE POSITION 
50 REM X : ZUFALLSZAHL FOR DAS 

PROBLEM 
60 REM Y : ZUFALLSZAHL FUR DAS 

PROBLEM 
70 REM A : ANTWORT 
80 REM J :ZAHLER 

90 REM 

1 00 GOSUB 1000:REM BILDSCHIRM- 

AUFBAU 

200 GOSUB 2000:REM PROBLEM (S)— 

300 GOSUB 3000:REM PLATZEN DER 

SEIFENBLASE 

400 END 
1 000 REM BILDSCHIRMAUFBAU— 

1 01 CLS 

1 020 PRINT @20,"DIE SEIFENBLASE 

PLATZT" 
1 030 DATA 88,6,90,6,92,6,94,6,86,7,96,7 
1 040 DATA 84,8,98,8,82,9,100,9,81,10,101,10 
1 050 DATA 81,11,101,11,81,12,101,12,81,13, 

101,13 
1 060 DATA 82,14,100,14,84,15,98,15,86,16 
1 070 DATA 96,16,88,17,90,17,92,17,94,17 
1 080 FOR J = 1 TO 28 
1 090 READ H,V:SET (H,V) 

1 1 00 NEXT J 
1110 PRINT @576,"BITTE GEBEN SIE IHREN 

ANFANGSBUCHSTABEN EIN:" 
1 1 20 INPUT 1$ 
11 30 PRINT @326,I$ 

93 



1 1 40 PRINT @640,"BEANTWORTEN SIE EI- 
NE FRAGE RICHTIG, UND" 

1 1 50 PRINT "IHR ANFANGSBUCHSTABE 

BRINGT DIE SEIFENBLASE ZUM PLAT- 
ZEN." 

1 1 60 FOR J = 1 TO 500:NEXT J 

11 70 RETURN 

2000 REM PROBLEMSTELLUNG 

2010X = RND(100) 
2020Y = RND(100) 
2030 GOSUB 2500:REM LOSCHUNG 

DER UNTEREN BILDSCHIRMHALF- 

TE— 
2040 PRINT @576,"WIEVIEL 1ST ";X;" + 

2050 INPUT A 

2060 IF A <> X + Y GOTO 2010 

2070 GOSUB 2500:REM LOSCHUNG 

DER UNTEREN BILDSCHIRMHALF- 
TE— 

2080 RETURN 

2500 REM LOSCHUNG DER UNTEREN 

BILDSCHIRMHALFTE— 

2510 FOR J = 512 TO V03 

2520 PRINT ©J," " 

2530 NEXT J 

2540 RETURN 

3000 REM PLATZEN DER SEIFEN- 
BLASE 

301 FOR H = 326 TO 363 

3020 PRINT @H," " 

3030 PRINT @H+1,I$ 
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3040 FOR J = 1 TO 50:NEXT J 

3050 NEXT H 

3060 FOR J = 168 TO 360 STEP 64 

3070 PRINT @ J," 

3080 NEXT J 

3090 PRINT @297,"RICHTIG! GEWONNEN!" 

31 00 RETURN 



Variationals 




Auch bei diesem Prograrnm konnen Sie selb- 
standig Anderungen vornehmen, zum Beispiel: 
1. Stellen Sie anstatt einer Additions- eine Sub- 
traktionsaufgabe. Die einzigen Zeilen, die veran- 
dert werden mussen, sind 2040 und 2060. Sie 
konnen die gleichen Zahlen, namlich X und Y, be- 
nutzen. In 2040 formulieren Sie eine andere Fra- 
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ge und setzen das Minus- anstelle des Pluszei- 
chens ein. In 2060 lassen Sie den Computer er- 
mitteln, ob die Antwort (A) gleich oder nicht 
gleich X minus Y (X— Y) ist. Mit ahnlich einfachen 
Anderungen konnen Sie leicht auch Multiplika- 
tions- oder Divisionsfragen stellen. 
2. Unser nachster Vorschlag ist verbunden mit ei- 
ner etwas grofteren Anderung. Fanden Sie es 
nicht toll, wenn bei jedem Durchlauf des Pro- 
gramms eine andere Nachricht »im Innern« der 
Seifenblase erscheinen wurde? Sie wissen be- 
reits, wie man das macht, derm wir haben schon 
mit dem Zufallsgenerator die Voraussagen und 
Meldungen gespeichert. Ganz am Ende der letz- 
ten Unterroutine, bei Zeile 3090, mussen Sie al- 
les einfugen, was die Zufallsmeldungen ans Lau- 
fen bringt: DATA fur die Meldungen, den Lade- 
vorgang (READ) fur den entsprechenden Tabel- 
lenbereich und die Auswahl der jeweiligen Nach- 
richt durch den Zufallsgenerator fur die Bild- 
schirmausgabe. Sie konnten dafur naturlich 
auch eine eigene Unterroutine schreiben, wenn 
Sie glauben, die PLATZEN-Routine sei ohnehin 
schon zu lang. Das aber uberlassen wir Ihnen. 
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Verwirrta Staaten 



Alle Techniken, die wir bis jetzt gelernt haben, 
kombinieren wir nun mit einigen neuen, urn ein 
noch umfangreicheres Spielprogramm herzu- 
stellen. In diesem Spiel geht es darum, mit vier 
Bewegungen vom Start zum Ziel zu gelangen. 
Die Bewegung findet aber nur dann statt, wenn 
der Spieler die richtige Antwort auf die Frage 
gibt, um welchen europaischen Staat es sich 
handelt. Der Name des Staates wird ihm in vollig 
verdrehter Form auf dem Bildschirm gezeigt, 
und der Spieler muft schon einiges an Kombina- 
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tionsfahigkeit aufbieten, urn die Frage richtig zu 
beantworten. Wir geben dem Spieler insgesamt 
siebenmal die Chance, die vier Bewegungen auf- 
grund einer richtigen Eingabe durchzufuhren. 
Wenn er oder sie damit die Ziellinie nicht er- 
reicht, ist das Spiel beendet. 
Die Namen der Variablen und die Liste der Unter- 
routinen sieht folgendermaften aus: 



1 REM VERWIRRTE STAATEN 

20 REM 1$ : ANFANGSBUCHSTABE DES 

SPIELERS 
25 REM R$ : EINE ANTWORT 
30 REM J : EIN ZAHLER 

35 REM S$(10):TABELLE FOR ZEHN LAN- 

DERNAMEN 
40 REM 0$ : SPIELENDZEICHEN 
45 REM T : ANZAHL ERFOLGTER VER- 

SUCHE 
50 REM N$ : DER ZU MISCHENDE LAN- 

DERNAME 
55 REM N : ZUFALLSZAHL FUR STAA- 
TEN 
60 REM L : LANGE DES NAMENS 
65 REM U$(30):TABELLE DER BUCH- 

STABEN IM NAMEN 
70 REM R : ZUFALLSZAHL FOR 

BUCHSTABEN 
75 REM P : POSITION DES INITIALS 
80 REM M : OBERTRAG 
90 REM 
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1 00 GOSUB 1000:REM- BILDSCHIRM- 

AUFBAU 

200 GOSUB 2000:REM — STAATENTA- 

BELLE 

300 GOSUB 3000.-REM SPIEL 

400 END 

Lassen Sie sich von den dreizehn Variablenna- 
men im gleichen Programm nicht aus der Fas- 
sung bringen. Es ist fur Sie sicher einfacher, sich 
zunachst mit den einzelnen Unterroutinen und 
den dort benotigten Variablen vertraut zu ma~ 
chen, denn pro Unterroutine werden wir nur eini- 
ge wenige verwenden. 

Zunachst sehen wir im Hauptprogramm nur drei 
Unterroutinen, aber wenn wir an der SPIEL-Un- 
terroutine angelangt sind, werden Sie merken, 
daft diese wiederum drei andere Unterroutinen 
aufruft. Innerhalb des Spieles mussen wir den 
Bildschirm loschen, eine Frage stellen und einen 
Ubertrag, das heiftt eine Bewegung, durchfuh- 
ren. Und diese drei Dinge mussen wir standig bis 
zu einem bestimmten Punkt wiederholen. Des- 
halb ist jede dieser Aktivitaten in einer eigen- 
standigen Unterroutine enthalten. 
Den Ablauf bis zur SPIEL-Unterroutine sollten wir 
kennen, also sollten wir au ch in der Lage sein, die 
ersten beiden Abteilungen problemlos zu durch- 
laufen. 
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Der irmaufbau 




Wir beginnen mit der Spielvorbereitung, indem 

wir auf dem Bildschirm vier Positionen markie- 

ren, die den jeweiligen Startpunkt fur die vier Be- 

vvegungen darstellen, die der Anfangsbuchstabe 

des Spielers machen mufi, um die Ziellinie zu er- 

reichen. Auch in diesem Fall bleibt es Ihnen iiber- 

lassen den Bildschirm durch ein ausgetufteltes 

»Spielbrett« zu verschonern. Sie konnen leicht al- 

le moglichen dekorativen Elemente auf dem 

Bildschirm darstellen. Wir beschranken uns hier 

auf die Markierung der drei Startpositionen 

durch Pluszeichen (+), positionieren den An- 

fangsbuchstaben am Startpunkt der Bewe- 

gungslmie und erklaren den Spielverlauf: 

1 000 REM BILDSCHIRMAUFBAU 
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1010CLS 

1 020 PRINT @200,"START" 

1030 PRINT @240,"ZIEL" 

1 040 FOR J = 266 TO 306 STEP 10 

1 050 PRINT @J,"+" 

1 060 NEXT J 

Nach dieser Befehlsfolge ist eigentlich die meiste 
Arbeit in der Unterroutine schon getan, die Bild- 
schirmzeile 4 enthalt die Texte START und ZIEL, 
die 5. Zeile fiinf Pluszeichen auf den Adressen 
266, 276 7 286, 296 und 306. Da wir sie alle zehn 
Positionen ausgeben, benutzen wir in Pro- 
grammzeile 1040 die Angabe STEP 10. Die Zeilen 
4 und 5 des Bildschirms sehen jetzt so aus: 

START ZIEL 

+ + + + + 

Nun wird der Anfangsbuchstabe des Spielerna- 
mens auf dem ersten Pluszeichen positioniert: 

1070 PRINT @512,"GEBEN SIE BITTE IHREN 

ANFANGSBUCHSTABEN EIN:" 
1080 INPUT 1$ 
1 090 PRINT @266,I$ 

Die letzte Adresse entspricht dem + unter dem 
Wort START, das nach der Ausgabe des Initials 
nun nicht mehr sichtbar ist. 
Am Ende der Unterroutine geben wir jetzt noch 
eine Erklarung des Spielablaufs beziehungswei- 
se der Regeln auf dem Bildschirm aus: 
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1 1 00 PRINT @512,"SIE HABEN 6 VERSU- 

CHE, UM ANS ZIEL ZU GELANGEN." 
1110 PRINT "UM SICH ZU BEWEGEN, MUS- 

SEN SIE DEN" 
1 1 20 PRINT "NAMEN EINES STAATES IN 

EUROPA ENTZIFFERN." 
1 1 30 PRINT @768,"DRUCKEN SIE ZUM 

START DIE RETURN-TASTE" 
1 1 40 INPUT R$ 
1 1 50 RETURN 

Nach Drucken der RETURN-Taste wird der Com- 
puter zum Hauptprogramm zuruckkehren und 
mit der Abarbeitung der nachsten Unterroutine 
beginnen. 



Die Speicherung der Staaten 
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Konnen Sie sich noch an die Unterroutine in Ka- 
pitel 1 erinnern, mit der wir mehrere Zukunfts- 
voraussagen in einer TabelJe gespeichert haben? 
In diesem Fall handelt es sich um zehn Staaten, 
deren Namen wir in DATA-Anweisungen ange- 
ben. Beachten Sie bitte, daft pro DATA-Zeile meh- 
rere Dateneintrage, das heiftt Landernamen, dar- 
gestellt werden konnen, solange die einzelnen 
Zeichenketten durch Kommata getrennt wer- 
den. Wir nehmen auch hier den READ-Befehl, um 
die Landernamen in eine Tabelle zu laden, die wir 
mit S$ (S als Abkurzung fur Staat) bezeichnet ha- 
ben. Bevor wir diese Tabelle jedoch benutzen 
konnen, mussen wir sie DIMensionieren — das 
heiftt, der Computer wird angewiesen, zehn 
Leerbereiche fur unsere Tabelle zu reservieren. 

2000 REM STAA.TENTABELLE 

201 DATA "BUNDESREPUBLIK","ENG- 
LAND","FRANKREICH","HOLLAND", 
"LUXEMBURG"," BELGIEN'7'SPANIEN" 

2020 DATA "iTALIEN'V'GRIECHENLAND" 

2030 DATA "OSTERREICH" 

2040 DIM S$(10) 

2050 FOR J = 1 TO 10 

2060 READ S$(J) 

2070 NEXT J 

2080 RETURN 

Die Schleife in den Zeilen 2O50 und 2070 bewirkt 
zehn Lesevorgange (READs) zur Speicherung 
der zehn Landernamen in unserer Tabelle. Der 
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Name »BUNDESREPUBLIK« wird damit auf Platz 
1 der Tabelle, also S$(1), der Name »FRANK- 
REICH« auf S$(3) und der Name »OSTERREICH« 
auf S$(10) gespeichert. Im weiteren Verlauf des 
Programms werden wir diese Tabelle in dersel- 
ben Weise verwenden wie die Weissagungsta- 
belle.-Wir greifen eine Zufallszahl auf und benut- 
zen diese zur Auswahl einer der Datenzellen. An- 
schlieftend wird der in dieser Zelle gespeicherte 
Landername herausgenommen und durchein- 
andergeschuttelt. 



Das eigenfliche Spiel 



Speed, du bist 
ein Held! Du hast die 
Stadt ge- 
rettet! 




Wir haben vorhin festgelegt, daft der Spieler sie- 
ben Moglichkeiten erhalt, die Ziellinie zu errei- 
chen. Jede Runde besteht: aus dem Versuch, ei- 
nen zufallig angezeigten Landernamen zu ent- 
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ziffern, das heifit, die Buchstaben in die richtige 
Reihenfolge zu bringen. Wir mussen unsere Auf- 
merksamkeit also noch auf weitere Dinee rich- 
ten: 5 

1. Wo sich der Anfangsbuchstabe zur Zeit befin- 
det, 

2. ob der Anfangsbuchstabe inzwischen die Ziel- 
linie erreicht hat, 

3. wie viele Versuche der Spieler bereits hinter 
sich hat. 

Die SPIEL-Unterroutine ist ziemlich komplex. Sie 
liest sich wie ein eigenstandiges kleines Pro- 
gramm und enthalt selbst die Verzweigung auf 
weitere Unterroutinen. Bevor wir uns das in BA- 
SIC anschauen, wollen wir in allgemeinverstand- 
licher Sprache die Schritte verdeutlichen, die wir 
durchfuhren mussen: 

Oberpriifung, ob der Spieler schon gewonnen 
hat ODER ob die maximal mogliche Anzahl der 
Versuche uberschritten ist. 
Wenn eine dieser beiden Bedingungen zutrifft, 
geben wir die entsprechende Meldung aus. 
Wenn keine von beiden er-fullt ist, fuhren wir fol- 
gende Aktionen durch: 

1. Loschung des unteren Eildschirmteils, 

2. per Zufallsgenerator einen Landernamen auf- 
greifen, 

3. die Buchstaben des ausgewahlten Landerna- 
mens mischen, 

4. den Spieler zur EntschlOsselung oder Richtig- 
stellung auffordern, 

5. ermitteln, ob die eingeg -ebene Antwort richtig 
oder falsch ist. 
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a) Wenn sie richtig ist, den Anfangsbuchstaben 
urn zehn Stellen weiterbewegen und uberprii- 
fen, ob der Spieler nun gewonnen hat. 

b) Wenn sie NICHT stimmt, dem Spieler den rich- 
tigen Landernamen mitteilen. 

c) In jedem Fall addieren wir eine 1 zu der Zahl 
der bereits erfolgten Versuche und kehren zu- 
ruck zum ersten Schritt. 

(Oberprufung, ob der Spieler gewonnen hat. . . ) 

Die Zeilen 3030 bis 3150 sind die gleichen Schrit- 
te in BASIC. Vor diesen Schritten DIMensionieren 
wir eine Tabelle U$, die wir fur das Mischen der 
Buchstaben des Landernamens benotigen. An- 
schlieftend setzen oder initialisieren wir drei Va- 
riable: T steht fur die Anzahl Versuche und wird 
zu Beginn des Spiels auf 1 gesetzt, da wir uns ja 
im ersten Versuch befinden. P steht fur Position 
und stellt die Adresse des Anfangsbuchstabens 
des Spielers dar. Erinnern Sie sich? Wir setzten 
das Initial zu Beginn auf 266. 0$ steht fur Spie- 
lende, und wir benutzen die Variable zur Kenn- 
zeichnung, ob das Spiel nun beendet ist oder 
nicht — sie wird mit »NEIIN« initialisiert. 

3000 REM SPIEL 

3010 DIM U$(30) 

3020 T = 1 :P = 266:0^ = "NEIN" 

3030 IF T > 7 OR 0$ = "JA" GOTO 3160 

3040 GOSUB 3700.-EREM LOSCHUNG 

DES UNTEREN R JLDSCHIRMTEILS— 
3050 GOSUB 3300:E^EM FRAGESTEL- 

LUNG 
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3060 PRINT @704,"BITTE EINGABE DER 

ANTWORT:" 
3070 INPUT A$ 
3080 IF A$ = N$ GOTO 3120 
3090 PRINT @512,"SCHADE! DER 

STAAT 1ST ";N$ 
31 00 FOR J = 1 TO 100:NEXT f 
3110 GOTO 3140 
3120 PRINT @832,"RICHTIG!" 
3130 GOSUB 3500:REM UBER- 

TRAG 
3140 T = T+1 
3150 GOTO 3030 
31 60 GOSUB 3700:REM LOSCHUNG 

DES UNTEREN BILDSCHIRMTEILS 
31 70 IF 0$ = "JA" GOTO 3200 
3 1 80 PRINT @512," SCHADE, DIE VERSU- 

CHE SIND BEENDET!" 
3190 GOTO 3210 
3200 PRINT @512,"GLUCKWUNSCH!SIE 

HABEN GEWONNEN!" 
3210 RETURN 

In Zeile 3030 programmieren wir ZWEI Bedin- 
gungen, von denen nur eine jeweils zutreffen 
kann; das Spiel ist vorbei, wenn die maximale 
Versuchsanzahl erreicht ist ODER wenn der Spie- 
ler gewonnen hat. Das Programm erkennt, daft 
das Spiel gewonnen wurd e, wenn das Wort »JA« 
in 0$ gespeichert ist. In Zeile 3020 haben wir in 
0$ das Wort »NEIN« hinterlegt. Wie kommt nun 
das JA hinein? Jedesmal, w/enn wir den Anfangs- 
buchstaben bewegen, priifen wir, ob er die Ziel- 
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linie erreicht hat, und wenn das zutrifft, andern 
wir den Inhalt von 0$ in JA. Das erfolgt in der 
OBERTRAG-Unterroutine, die wir kurz untersu- 
chen wollen. 

Wenn das Spiel noch nicht beendet ist, verzweigt 
das Programm auf Zeile 3040. Nun erwarten wir 
vom Programm die Loschung des unteren Bild- 
schirmbereichs wie im letzten Kapitel. Anschlie- 
ftend wird eine Frage gestellt. Beide Arbeitsab- 
laufe sind groft genug, urn eigenstandige Unter- 
routinen darzustellen. In der FRAGESTELLUNG- 
Unterroutine greifen wir den Namen des Landes 
auf und nennen den Speicherbereich N$. Des- 
halb uberprufen wir auch die Eingabe im Spei- 
cher A$ auf Identitat mit dem Inhalt von N$. 
Wenn beide Bereiche ubereinstimmen, springt 
das Programm zur Zeile 3120 und gibt den Text 
RICHTIG! in der vierzehnten Zeile aus, daraufhin 
wird das Initial bewegt. Ist die Antwort aber 
falsch, wird dem Spieler der eigentliche Lander- 
name mitgeteilt, und das Initial bleibt an seinem 
Platz. 

Am Ende jedes Schleifendurchlaufs addieren wir 
1 zum Inhalt von T (Zeile 3 140) und gehen zuriick 
zur Zeile 3030, um zu uberprufen, ob das Spiel 
nun beendet ist. Fruher oder spater wird T einen 
Wert grofter als 7 annehrrxen. In diesem Fall wird 
das Wort »JA« in 0$ gespeichert. Dann springt 
das Programm zur Zeile 3160, wo wiederum der 
untere Bildschirmbereichi geloscht wird. Dann 
wird uberpriift, aus welchem Grund das Spiel 
beendet wurde. Hat der Spieler gewonnen, wird 
auf Zeile 3200 verzweigt und eine Gratulations- 
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zeile ausgegeben, andemfalls teilt der Computer 
sein Bedauern mit, daft das Spiel verloren wurde. 



Das Loschen des unteren Bildschirm- 
bereichs 




Jetzt ist es an der Zeit, daft wir mit der Untersu- 
chung der drei Unterro utinen innerhalb der 
SPIEL-Unterroutine begin nen. Jedesmal, wenn 
wir eine neue Frage stellen oder eine neue Mel- 
dung ausgeben, mttssen wir den unteren Teil des 
Bildschirms loschen. Im Gegensatz zu Kapitel 5 
loschen wir hier jedoch ei nen grofieren Bereich, 
namlich von Adresse 512 bis 959. Und so wird's 
gemacht: 

3700 REM LOSCHUNG DES UNTEREN 

BILDSCHIRMTEILS— 
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3710 FOR J = 512 TO 959 
3720 PRINT @J," " 
3730 NEXT J 
3740 RETURN 

Fur diese Aktion benotigt der Computer schon 
eine gewisse Zeit, da wir ihm zumuten, jede ein- 
zelne Stelle zwischen 512 und 959 mit einen 
Leerwert zu versehen. Diesen Befehl fuhrt er 
namlich auf jeden Fall durch, egal, ob auf dieser 
Adresse ein Zeichen steht oder nicht. 



Das Di nanderwirbeln des 

Landernamens 




Wir haben eine Tabelle bestehend aus zehn Staa- 
ten, die im Programm mit dem Symbol S$(10) be- 
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zeichnet ist. Immer, wenn der Zeitpunkt fur eine 
erneute Fragestellung gekommen ist, wollen wir 
einen Landernamen aufgreifen und die Zeichen- 
kette durcheinanderbringen. Das erste, was be- 
kannt sein mufi, ist die Anzahl der Buchstaben 
des herausgegriffenen Landernamens, den wir 
mit N$ bezeichnet haben. Die LEN-Funktion, so 
erinnern wir uns, gibt uns ttber die Gesamtzahl 
der Zeichen in einer Kette Auskunft. Also stellt 
LEN(W$) die Anzahl der Zeichen des aktuellen 
Landernamens dar. Wir reden von Zeichen und 
nicht von Buchstaben, da die Namen ja auch 
Bindestriche oder Leerstellen enthalten konnen. 
Die Zeichenanzahl im Landernamen markieren 
wir mit dem Variablennamen L. Um sie zu mi- 
schen, miissen wir eine Serie von Schritten aus- 
losen: 

1. Aufgreifen einer Zufallsganzzahl (genannt R) 
zwischen 1 und L, 

2. Ausgabe des Zeichens rnit der Positionsnum- 
mer R auf dem Bildschirrn, 

3. Aufgreifen einer weiteren Zufallsganzzahl R 
zwischen 1 und L, 

4. Ausgabe eines weiteren Zeichens mit der Posi- 
tionsnummer R als Folgezeichen unmittelbar 
hinter dem bereits angezeigten Zeichen. 
Werden die oben angefuhrten Schritte insge- 
samt L-mal wiederholt, damn erscheinen L-Zei- 
chen auf dem Bildschirrn. Diese Schrittfolge ent- 
halt ein Problem, auf das wir Sie noch nicht auf- 
merksam gemacht haben: Sie mussen wissen, 
daft der Computer bei der Bereitstellung einer 
Zufallszahl zwischen 1 und 7 beispielsweise 
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mehrfach dieselbe Zahl angeben kann. Wenn al- 
so HOLLAND der zu erratende Staat ist, und der 
Computer gibt standig die 4 an, wurde die ge- 
mixte Ausgabe von HOLLAND aussehen wie 
»LLLLLLL«. Und das wurde naturlich den weite- 
ren Spielverlauf erheblich behindern. 
Aus diesem Grund muft ein Weg gefunden wer- 
den, den Computer anzuweisen, die Zufallszahl 
aus dem Bereich 1 bis 7 zu bilden, aber keine 
Zahl zweimal zu verwenden. Mit anderen Wor- 
ten: Wir mussen die schon verwendeten Zahlen 
aufzeichnen. Die beste Art, das zu tun, besteht 
aus der Festlegung einer weiteren Tabelle, die wir 
mit U$ bezeichnen. Bevor wir nun mit dem Mix 
beginnen, speichern wir in jeder Zelle von U$ das 
Wort »NEIN« ab. Es zeigt uns an, dafi noch keine 
Zahl benutzt wurde. Wenn nun eine Zahl aufge- 
griffen wurde, speichern wir in der zugeordneten 
Zelle das Wort »JA« ab. Ubrigens DIMensionieren 
wir die Tabelle zu Beginn der SPIEL-Unterroutine 
mit dem Wert 30. Nun wollen wir unsere Schritt- 
folge diesen Oberlegungen anpassen und sehen, 
wie sich diese Erganzung auswirkt: 

1. Aufgreifen einer Zufallszahl zwischen 1 und L, 

2. Uberprufen, ob diese Zahl schon verwendet 
wurde: 

a) wenn ja, zuruck zu Schritt 1. 

b) wenn nein, Speicheruog von »JA« in der Zelle 
von U$, die der Zufallszahl entspricht, und Aus- 
gabe des entsprechenden Zeichens aus dem 
Landernamen. 

Wiederholung der Schrittfolge L-maL 

Der ganze Bereich sieht dann in BASIC so aus: 
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3300 REM FRAGESTELLUNG 

3310N = RND(10) 

3320N$ = S$(N) 

3330L = LEN(N$) 

3340 FOR J = 1 TO L 

3350 U$(J) = "NEIN" 

3360 NEXT J 

3370 PRINT @512,"WELCHER STAAT 1ST 

DAS?" 
3380 FOR J = 1 TO L 
3390 R = RND(L) 
3400 IF U$(R) = "JA" GOTO 3390 
3410 U$(R) = "JA" 
3420 PRINT @J+580,MID$(N$,R/I ) 
3430 NEXT J 
3440 RETURN 

N ist eine Zufallsganzzahl von 1 bis 10. Warum 
10? Weil wir genau zehn Staaten haben. Wenn N 
eine 1 enthalt, dann ist S$(N) gleich BUNDESRE- 
PUBLIK, also der erste Staat in der DATA-Aufli- 
stung. Im Programm leichter verstandlich ist die 
Speicherung von S$(N) in N$. Wenn N$ den Na- 
men FRANKREICH enthalt, hat L den Wert 10, 
namlich die Anzahl aller Zeichen des Wortes 
FRANKREICH. 

Die Schleife in den Zeilen 3340 bis 3360 initiali- 
siert die Tabelle U$. Sie bewirkt den Eintrag von 
»NEIN« in den 10 Zeilen von U$. Also enthalten 
U$(1 ), U$(2), U$(3) und so weiter bis U$(10) zu 
Beginn das Wort »NEIN«. Um bei unserem Bei- 
spiel zu bleiben: Das Wort FRANKREICH besteht 
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aus zehn Zeichen, und sie alle wurden noch 
NICHT benutzt. 

Nach der Frage WELCHER STAAT 1ST DAS? gelan- 
gen wir in den Teil der Unterroutine, der tatsach- 
lich die Mischung der Zeichenfolge vornimmt 
und diese dann in verdrehter Reihenfolge aus- 
gibt. Die FOR/NEXT-Schleife in den Zeilen 3380 
bis 3430 wird L-mal durchgefuhrt. In unserem 
Beispiel mit FRANKREICH also zehnmal — auf- 
grund der zehn Buchstaben. 
Jedesmal, wenn nun eine Zufallszahl von 1 bis 10 
(L) aufgegriffen wird, erfolgt also die Prufung, ob 
die entsprechende Zelle von U$ schon ein »JA« 
enthalt, weil die Zahl bereits verwendet wurde. 
In diesem Fall kehrt das Programm zur Auswahl 
zuruck, bis es eine Zahl flndet, in deren zugeord- 
neter Zelle das Wort »NEIN« enthalten ist. Darauf- 
hin wird es mit der Verarbeitung zweier Anwei- 
sungen fortfahren. Erstens wird in der Zelle ein 
»JA« eingetragen, so daft derselbe Buchstabe 
nicht zweimal durch den Computer ausgegeben 
wird. Zweitens wird durch die Benutzung der 
MID$-Funktion das der Zufallszahl zugeordnete 
Zeichen aus N$ ausgegeben. 
Die Zeile 3420 sollten wir genauer betrachten. 
Wie wir wissen, entnimmt die MID$-Funktion ei- 
ne bestimmte Anzahl Zeichen aus einem gege- 
benen Textbereich. R ist nun die laufende Num- 
ber des Zeichens in der Kette, das wir bearbei- 
ten wollen. Somit bewirkt MID$(N$,R,1 ) die Fest- 
legung und weitere Verarbeitung genau eines 
Zeichens aus N$. Wenn R den Wert 3 annimmt, 
wird der Computer den Buchstaben A aus dem 
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Wort FRANKREICH anzeigen, da dieser die lau- 
fende Nummer 3 tragt. Die Ausgabe soil auf Posi- 
tion 581 erfolgen, die des nachsten Zeichens auf 
582 und so weiter: Deshalb weisen wir den Com- 
puter an, auf J+580 das Symbol sichtbar zu ma- 
chen. Enthalt J die Zahl 1, ist die Adresse 581. Im 
nachsten Durchlauf entspricht J der Zahl 2, also 
haben wir es mit Position 582 zu tun. 
Es ware sinnvoll, wenn Sie an dieser Stelle die 
einzelnen Schritte der Unterroutine mehrmals 
fur sich nachvollziehen wurden, um zu sehen, 
was jeder Schritt im einzelnen bewirkt. Verge- 
genwartigen Sie sich, daft bei jedem Aufruf die- 
ser Routine ein neuer Landername, hier N$ ge- 
nannt, durch den mehrmaligen Durchlauf einer 
Schleife per Zufallsgenerator gemischt und ver- 
kehrt ausgegeben wird. Diese Unterroutine dient 
nur diesem einen Zweck. Blattern Sie noch ein- 
mal zur eigentlichen SPIEL-Unterroutine zuriick. 
Genau vor dem Aufruf der FRAGESTELLUNG 
loschen wir den unteren Bildschirmbereich. Un- 
mittelbar danach gibt der Spieler seine Antwort 
ein, die dann auf Richtigkeit uberpruft wird. 
Wenn diese stimmt, muss en wir mit einem wei- 
teren Ablauf beginnen. 
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Die Bewegi des An sbuch- 
stabens 




Jede richtige Antwort bringt den Anfangsbuch- 
staben dem Ziel einen Schritt naher. Wir haben 
Pluszeichen zur Markierung dieser Schritte auf 
dem Bildschirm ausgegeben, und zwarin einem 
Abstand von 10 Einheiten auf den Positionen 
276, 286, 296 und 306 (dem Ziel). Erinnern wir 
uns auch daran, daft wir zu Beginn der SPIEL-Un- 
terroutine die Variable P rnit 266 initialisiert ha- 
ben, um die Startposition des Anfangsbuch- 
stabens aufzuzeichnen. 

Zur Bewegung des Initials durchlauft unser Pro- 
gramm die gleichen Basisschritte, die wir in den 
letzten beiden Programmen schon verwendet 
haben: 

1. Loschung des Zeichens auf seiner zuletzt er- 
reichten Position, 
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2. Ausgabe des Zeichens auf der nachsten Posi- 
tion. 

Wir wiederholen diese Schritte zehnmal, urn den 
Anfangsbuchstaben urn zehn Spalten vorwarts 
zu bewegen. Dann tun wir zwei weitere wichtige 
Dinge. Wir addieren die Zahl 10 auf P, um die 
neue Position des Zeichens festzuhalten, und 
wir prttfen, ob P den Wert 306 erreicht hat. Falls 
das zutrifft, heiftt das, der Spieler hat gewonnen, 
und wir speichern das Wort »JA« in der Variablen 
0$. 

3500 REM UBERTRAG 

3510FORM = PTOP +9 

3520 PRINT @M," " 

3530 PRINT @M+ 1,1$ 

3540 FOR f = 1 TO 100:NEXT J 

3550 NEXT M 

3560P = P+ 10 

3570 IF P = 306 THEM 0$ = "JA" 

3580 RETURN 

M bewegt sich also von P bis P + 9. Warum nicht P 
+ 10? Weil wir jedesmal 1$ auf der Position M + 1 
ausgeben. Bei der letzten Schleifendurchfuh- 
rung, wenn M dem Wert P + 9 entspricht, geben 
wir 1$ auf M + 1 oder aucH P + 10 aus. 
0$ wurde am Anfang des Spiels auf den Wert 
»NEIN« gesetzt. Sobald P den Wert 306 annimmt, 
wird in 0$ ein »JA« gespe-ichert. Zurttck in der 
SPIEL-Abteilung, trifft nun die Bedingung in Zeile 
3030 zu. Dadurch wird das Programm die nach- 
ste Schleife uberspringen. Wenn es in der Zeile 
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3170 anlangt, wird der Text »GRATULATION!. . .« 
ausgegeben, da 0$ dem Wort »JA« entspricht, 
und das Spiel ist somit beendet. 



Das gesamte Programm 

Das Spiel »Verwirrte Staaten« ist bei weitem das 
langste, das wir geschrieben haben. Aber es wird 
nichts benutzt, was Sie nicht schon kennen. Und 
jetzt wollen wir Ihnen nochmals das gesamte 
Programm vorstellen: 

1 REM VERWIRRTE STAATEN— 

20 REM 1$ : ANFANGSBUCHSTABE 

DES SPIELERS 
25 REM R$ : EINE ANTWORT 
30 REM J : EIN ZAHLER 

35 REM S$(10):TABELLE FOR ZEHN LAN- 

DERNAMEN 
40 REM 0$ : SPIELENDZEICHEN 
45 REM T : ANZAHL ERFOLGTER 

VERSUCHE 
50 REM N$ : DER ZU MISCHENDE 

LANDERNAME 
55 REM N : ZUFALLSZAHL FUR STAA- 
TEN 
60 REM L : LANGE DES NAMENS 
65 REM U$(30):TABELLE DER BUCH- 

STABEN IM NAMEN 
70 REM R : ZUFALLSZAHL FUR 

BUCHSTABEN 
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75 REM P : POSITION DES INTIALS 
80 REM M : UBERTRAG 

90 REM 

1 00 GOSUB 1000:REM BILDSCHIRM- 

AUFBAU 

200 GOSUB 2000:REM STAATENTA- 

BELLE 

300 GOSUB 3000:REM SPIEL 

400 END 
1 000 REM BILDSCHIRMAUFBAU 

1 01 CLS 

1 020 PRINT @200,"START" 

1 030 PRINT @240,"ZIEL" 

1 040 FOR f = 266 TO 306 STEP 10 

1 050 PRINT @J,"+" 

1 060 NEXT J 

1 070 PRINT @512,"GEBEN SIE BITTE IHREN 

ANFANGSBUCHSTABEN EIN:" 
1 080 INPUT 1$ 
1 090 PRINT @266,I$ 
1 100 PRINT @512,"SIE HABEN 6 VERSU- 

CHE, UM ANS ZIEL ZU GELANGEN." 
1110 PRINT "UM SICH ZU BEWEGEN, MUS- 

SEN SIE DEN" 
1 1 20 PRINT "NAMEN EINES STAATES IN 

EUROPA ENTZIFFERN." 
1 1 30 PRINT @768,"DRUCKEN SIE ZUM 

START DIE RETURN-TASTE" 
11 40 INPUT R$ 
1 1 50 RETURN 
2000 REM STAATENTABELLE 
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201 DATA "BUNDESREPUBLIK'7'ENG- 
LAND","FRANKREICH","HOLLAND", 
"LUXEMBURG'7'BELGIEN'V'SPANIEN" 
2020 DATA "ITALIEN","GRIECHENLAND" 
2030 DATA "OSTERREICH" 
2040 DIM S$(10) 
2050 FOR J = 1 TO 10 
2060 READ S$(J) 
2070 NEXT J 
2080 RETURN 

3000 REM SPIEL 

3010 DIM U$(30) 

3020 T = 1 :P = 266:0 $ = "NEIN" 

3030 IF T > 7 OR 0$ = "JA" GOTO 3160 

3040 GOSUB 3700: REM LOSCHUNG 

DES UNTEREN BILDSCHIRMTEILS- 

3050 GOSUB 3300 :REM FRAGESTEL- 

LUNG 
3060 PRINT @704,"BITTE EINGABE DER 

ANTWORT:" 
3070 INPUT A$ 
3080 IF A$ = N$ GOTO 3120 
3090 PRINT @512,"SCHADE! DER 

STAAT IST";N$ 
31 00 FOR f=1 TO 100:NEXT J 

3110 GOTO 314-0 

3120 PRINT @S32,"RICHTIG!" 

3130 GOSUB 3S00:REM UBER- 

TRAG 
3140 T = T+1 
3150 GOTO 3030 

31 60 GOSUB 3700:RE:M LOSCHUNG 

DES UNTEREN F3ILDSCHIRMTEILS 
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31 70 IF 0$ = "JA" GOTO 3200 

31 80 PRINT @512,"SCHADE, DIE VERSU- 

CHE SIND BEENDET!" 
3190 GOTO 3210 
3200 PRINT @512,"GL0CKWUNSCH! SIE 

HABEN GEWONNEN!" 
3210 RETURN 
3300 REM FRAGESTELLUNG 

3310N = RND(10) 

3320N$ = S$(N) 

3330L = LEN(N$) 

3340 FOR J = 1 TO L 

3350 U$(J) = "NEIN" 

3360 NEXT J 

3370 PRINT @512,"WELCHER STAAT 1ST 
DAS?" 

3380 FOR J = 1 TO L 

3390 R = RND(L) 

3400 IF U$(R) = "JA" GOTO 3390 

3410 U$(R) = "JA" 

3420 PRINT @J+580,MID$(N$,R,1 ) 

3430 NEXT J 

3440 RETURN 

3500 REM UBERTRAG 

3510FORM = PTO P + 9 

3520 PRINT @M," " 

3530 PRINT @M+1,I$ 

3540 FOR J = 1 TO 100:NEXT J 

3550 NEXT M 

3560P = P+ 10 

3570 IF P = 306 THEIN 0$ = "JA" 

3580 RETURN 
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3700 REM LOSCHUNG DES UNTEREN 

BILDSCHIRMTEILS 

3710 FOR J = 512 TO 959 
3720 PRINT @ J," " 
3730 NEXT J 
3740 RETURN 
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Spafi und Spiele 




An dieser Stelle liegen nun alle Variationen bei Ih- 
nen. In den ersten funf Kapiteln haben wir uns 
noch erlaubt, einige Verbesserungen vorzuschla- 
gen. Sie konnen fast alle Hinweise auch in die- 
sem Spiel verwirklichen, wenn Sie wollen. Aber 
wichtiger fur Sie ist, sich einige Moglichkeiten 
der Verbesserung auszudenken und in die Tat 
umzusetzen. Gleiches gilt fur die Erfindung wei- 
terer Spiele. Entwerfen Sie Ihre eigenen Codie- 
rungsroutinen. Erfinden Sie weitere Wege, die 
Random-Funktion auszunutzen. Gestalten Sie 
die Animation nach eigenem Geschmack so 
phantasievoll, wie Sie nur konnen. 
Programmierung ist eine Kombination aus der 
Benutzung dessen, was Sie bereits erlernt haben 
und beherrschen und der Nutzung der eigenen 
Vorstellungskraft. Wir haben versucht, Sie mit ei- 
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nigen wesentlichen Ablaufen und Techniken ver- 
traut zu machen. Natiirlich mussen Sie immer 
noch eine Menge dazulernen — das gilt sogar fur 
die erfahrensten Programmierer. Wir hoffen, daft 
Sie wenigstens einen Teil dessen, was wir Ihnen 
vorgefuhrt haben, zur Erfindung weiterer span- 
nender Spiele verwenden konnen und daft wir 
Ihnen einen Anreiz zum zukunftigen Ausbau Ih- 
rer Kenntnisse bieten konnten. Das Wichtigste, 
was Sie dazu beitragen konnen, ist der eigene 
Spaft an der Programmierung. 
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Klelees Lexlkon und 
Index 



Ein Verzeichnis der in diesem Buch behandelten 
neuen Ablaufe und Fachausdrucke mit Querver- 
weisen auf die Kapitel, in denen sie angespro- 
chen werden. In BASIC reservierte Begriffe sind 
in Grofib.uchstaben dargestellt. 



NAME BEDEUTUNG UND VERWENDUNG 

ARRAY 

deutsch: Tabelle, ein Variablentyp, in dem 
mehr als ein Datenelement gespeichert und 
unter Verwendung desselben Namens ver- 
arbeitet wird. (1,3,6) 

Animation 

bewirkt die scheinbare »Bewegung« irgend- 
eines Objekts, beispielsweise eines Zei- 
chens uber den Bildschirm durch schnelles 
Ausgeben und Loschen auf aufeinanderfol- 
genden Bildschirmpositionen. (4 — 6) 
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ASC-Funktion 

setzt ein gegebenes Zeichen in die ASCII-Co- 
dezahl urn. Beispiel: PRINT ASC ("A") be- 
wirkt die Ausgabe der Codezahl 65. (3) 

CHR$-Funktion 

bewirkt die Umsetzung einer gegebenen 
ASCII-Codezahl in das zugeordnete Zeichen. 
Beispiel: PRINT CHR$(65) bewirkt die Aus- 
gabe des Buchstabens A. (3) 

CLEAR 

reserviert eine festzulegende Anzahl Spei- 
cherstellen fur Zeichen in einem Programm. 
(3) 

DIM 

ein Kommando, das eine gegebene Anzahl 
von Datenzellen fur eine Tabelle reserviert. 
Beispiel: DIM M$(15) legt 15 Datenzellen im 
Speicher fur die Tabelle M$ fest. (1,3,6) 

FOR/NEXT 

FOR und NEXT werden am Anfang und am 

Ende einer Wiederholungsschleife plaziert. 

(1 -6) 

Ruckwartszahlung durch Benutzung nega- 

tiver Schritte. (2) 

Leere Schleifen fur die Programmpause. (4 

-6) 

GOSUB 

(siehe Unterroutine) 

126 



Initialisierung 

die Festlegung und Speicherung von An- 
fangs- oder Initialisierungswerten. (1—6) 

INT-Funktion 

rundet jede Zahl auf die nachstniedrigere 
Ganzzahl ab. Wird in Verbindung mit der 
RND(1)-Funktion angewendet. (1 — 6) 

LEN-Funktion 

stellt die Gesamtanzahl von Zeichen in einer 
gegebenen Zeichenkette bereit. Beispiel: 
LENC'HALLO") ergibt eine 5. (2 - 3) 

MID$-Funktion 

bewirkt die Wiedergabe einer definierten 
Zeichenkette innerhalb einer gegebenen 
Zeichenkette. Beispiel: MID$("TRS-80",5,2) 
beginnt beim funften Zeichen, gibt also PC 
wieder. (2 — 3) 

ON/GOSUB 

unterstutzt ein Auswahlverfahren fur die 
Durchfuhrung von Unterroutinen. (3) 

PRINT @ 

zeigt einen Text ab einer bestimmten Bild- 
schirmpositionsadresse an, die nach dem 
@-Zeichen beziffert wird. (5 — 6) 

random 

Die RND-Funktion waMt Zufallszahlen, wie 
es in Kapitel 1 erklart w/urde, aus. 
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Wir haben diese Funktion wie folgt genutzt: 

Zufallszahlen in Tabellenbereichszellen. 

(1,3,6) 

Zufallszeichenzahlen in Verbindung mit der 

CHR$-Funktion. (3) 

Zufallszahl fur ein ON/GOSUB-Kommando. 

(3) 

Zufallszahl fur die Bewegung auf dem Bild- 

schirm. (4) 

Zufallszahlen fur arithmetische Probleme 

(5) in Verbindung mit der MID$-Funktion 

zur Darstellung eines Zufallszeichens in ei- 

ner Zeichenkette. (6) 

READ/DATA 

Das READ-Kommando stellt Daten aus DA- 
TA-Anweisungen, wie in Kapitel 1 erklart, be- 
reit. Es wurde benutzt in Verbindung mit: 
Daten in Zeichenketten. (1,3,6) 
Positionsdaten fur den Bildschirmaufbau. 
(5) 

RESET 

loscht ein Lichtrechteck auf dem Bildschirm 
auf der angegebenen Position. (4) 

RETURN 

(siehe Unterroutine) 



SET 

laftt auf einer bestimmten Bildschirmposi- 
tion ein kleines Rechted< aufleuchten. (4) 
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Unterroutine 

Bezeichnung fur einen Programmteil oder 
-baustein, der durch GOSUB aufgerufen 
wird. Unterroutinen mussen mit einem RE- 
TURN-Kommando abeeschlossen werden. 
(1-6) 

Unterroutinen innerhalb von Unterrouti- 
nen. (5 — 6) 



LUBBES COMPUTERBUCHER 



Als Band mit der Bestellnummer 63 081 erschien: 



Webster's NewWorld 

LEXIKON DER 
COMPUTER-BEGRIFFE 

Uber 2700 Stichworter aus der Welt der 
Datenverarbeitung 



# Uber 2700 Basisbegriffe von ABEND bis VIDEO- 
TEXT, sorgfaltig definiert in klarer, auch fur den 
Nichttechniker verstandlichen Sprache mit 
Querverweisen fur die leichtere Handhabung. 

@ Ein benutzerfreundlicher Fiihrer, der Ihnen hilft, 
ein RAM von einem ROM, einen Mikrocomputer 
von einem Minicomputer, eine GroSvaterdatei 
von einer Vaterdatei zu unterscheiden. 

# Ein aktuelles Lexikon fiir Schiiler und Benutzer 
von Personalcomputern ebenso wie fiir Fach- 
leute in der Computer- Anwendung. 

Deutsche Erstveroffentlichung 



geehs 



mmmp bwm 
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Sie verfugen bereits uber Grundkenntnisse der Pro- 
gram msprache BASIC? Dann konnen Sie auch fur 
Ihren TRS 80 einige fabelhafte Spiele 
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Mit einfachen, 

werden Sie schrittweise durch gehjeimnisvolle und 

abenteuerliche Programme gefuhrt, die Sie mit Hilfe 

dieses Buches erweitern und verbessern konnen. 

Was Sie daraus machen, liegt bei Ihnen - Ihrer 

Phantasie sind keine Grenzen gesetzt! 
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